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ABSTRACT 

This  research  extended  the  previous  work  performed 
by  Becker  on  the  elevated  temperature  deformation  charac- 
teristics of  an  aluminum-10 .2%  magnesium-0 . 52%  manganese 
alloy.   The  alloy  was  warm  rolled  at  300  C  to  94%  reduction 
Stress-strain  testing  was  utilized  to  collect  data  for 
stress  vs  strain  rate  and  ductility  vs  strain  rate,  as 
well  as,  stress  exponents  and  activation  energies. 
Tensile  testing  was  performed  at  strain  rates  from 
1.39X10~4s~   to  1.39X10~4s~   and  temperatures  from  20  C  to 
425  C.   Ductility  ranged  from  400%  at  300  C  and  600%  at 
325  C  to  700%  at  425  C.   The  data  clearly  establishes  that 
the  warm  rolled  alloy  is  superplastic  at  temperatures  as 

low  as  275  C  and  may  exhibit  superplastic  elongations 

-2  -1 
(greater  than  400%)  at  strain  rates  as  high  as  10   s    at 

325  C.   Scanning  electron  microscope  observations  indicated 

little  or  no  void  formation  at  or  below  300  C.   The  high 

ductilities  observed  at  temperatures  above  the  solvus  are 

the  result  of  grain  boundary  sliding. 
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I .   INTRODUCTION 

The  purpose  of  this  thesis  was  to  investigate  the 
elevated  temperature  deformation  characteristics  of  a 
thermo-mechanically  processed  Al-10 .2%Mg-0 .52%Mn  alloy  in 
the  as-rolled  condition.   Previous  research  by  Ness  [Ref. 
1],  Bingay  [Ref.  2],  Glover  [Ref.  3],  Grandon  [Ref.  4], 
Speed  [Ref.  5],  Chesterman  [Ref.  6],  Johnson  [Ref.  7], 
and  Shirah  [Ref.  8],  clearly  demonstrated  that  thermo- 
mechanically  processed  aluminum-magnesium  alloys  exhibit 
high  strength  with  good  ductility  at  ambient  temperature. 
Transmission  electron  microscopy  studies  by  McNelley  and 
Garg  [Ref.  9]  confirmed  that  the  microstructure  of  this 
alloy  consisted  of  fine,  cellular  dislocation  structures 
or  subgrain  structures.   It  was  further  observed  that 
annealing  after  rolling  resulted  in  recovery  with  possible 
recrystallization  to  fine  grains  of  submicron  size.   This 
prompted  study  of  the  elevated  temperature  behavior  of 
these  alloys  with  a  view  toward  their  possible  superplastic 
behavior . 

Although  his  findings  were  preliminary,  Becker  [Ref. 
10]  observed  superplast icity  in  both  the  8%  and  10% 
aluminum-magnesium  alloys.   These  alloys  were  thermo- 
mechanically  processed  by  warm  rolling.   Testing  was  con- 
ducted on  material  in  the  as-rolled  condition,  after 
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annealing  for  various  times  at  300  C,  and  in  a  recrystal- 
lized  condition  obtained  by  heating  for  one  half  hour  at 
440  C. 

The  processing  technique  developed  by  Johnson  [Ref.  7] 
and  the  tensile  testing  procedure  developed  by  Becker 
[Ref.  10]  were  used  in  the  study  of  this  10 .2%Mg-0 .52%Mn 
aluminum  alloy.   Tensile  testing  was  conducted  using  an 
electo-mechanical  Instron  machine  with  a  Marshall  three 
zone  clamshell  furnace  for  temperature  control.   The 
microstructure  of  the  elongated  test  samples  was  examined 
using  optical  microscopy. 

This  thesis  presents  data  obtained  from  the  mechanical 
testing  of  an  as-rolled  magnesium-aluminum  alloy  as  well  as 
results  of  microstructural  examination  to  assist  in 
evaluation  of  mechanical  test  results. 
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II.   BACKGROUND 

A.  ALUMINUM-MAGNESIUM  ALLOYS 

Aluminum  alloys  have  been  extensively  studied  because 
of  their  low  density,  ductility,  and  toughness.   The  higher 
strength  alloys  derive  their  strength  mainly  through 
precipitation  and  solid  solution  hardening.   The  formation 
of  a  second  phase  retards  dislocation  motion  and  grain 
growth. 

Aluminum-magnesium  alloys  are  characterized  by  a  good 
strength  to  weight  ratio,  superior  ductility,  lower  density 
with  better  corrosion  resistance  than  other,  higher  strength 
aluminum  alloys,  and  also  good  high  cycle  fatigue  behavior. 
The  strength  can  be  improved  through  cold  working. 

B.  PREVIOUS  WORK 

Ness  [Ref.  1]  initiated  the  investigation  of  high 
magnesium  alloys  at  this  laboratory.   He  studied  an  18% 
aluminum-magnesium  alloy,  attempting  to  parallel  the  concepts 
developed  by  Bly,  Sherby,  and  Young  [Ref.  11]  in  their  work 
on  high  carbon  steel.   Through  mechanical  working  of  an  Fe-C 
material  in  the  two  phase  f errite-carbide  region  they 
obtained  microstructural  refinement  and  improved  mechanical 
properties,  as  did  Ness  [Ref.  1]  with  a  resulting  compression 
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strength  of  655  Mpa  (99  KSI)  in  this  very  high  magnesium 
alloy . 

Bingay  [Ref.  2]  and  Glover  [Ref.  3]  attempted  varia- 
tions in  thermo-mechanical  processing  of  aluminum  alloys 
to  eliminate  cracking  during  the  rolling  process.   To 
refine  the  'microstructure ,  Bingay  [Ref.  2]  performed  both 
isothermal  and  non-isothermal  forging  prior  to  rolling  in 
15-19%  magnesium  containing  alloys.   Processing  was  difficult 
and  subsequent  work  shifted  to  examine  lower  magnesium 
alloys.   Aluminum  alloys  containing  7-9%  magnesium  were 
investigated  by  Glover  [Ref.  3]  who  observed  the  characteris- 
tics of  superplastic  behavior. 

Extending  the  study  into  7-10%  magnesium  alloys,  Grandon 
[Ref.  4]  introduced  a  24  hour  solution  treatment  followed 
by  a  quench  and  then  warm  rolling  at  300  C.   His  results 
indicated  a  doubling  of  strength  while  maintaining  good 
ductility  when  compared  to  the  5xxx  series.   He  also 
noted  that  recrystallization  did  not  occur  during  warm 
rolling  below  the  solvus.   Alloys  with  greater  magnesium 
content  were  tested  by  Speed  [Ref.  5]. 

Chesterman  [Ref.  6]  studied  the  nature  of  precipitation 
and  recrystallization  in  these  alloys  through  optical 
microscopy.   For  8-14%  alloys,  he  reported  that  recrystal- 
lization only  occurred  at  temperatures  above  the  solvus  and 
was  apparently  not  induced  even  after  extensive  cold  working 
followed  by  annealing  as  long  as  the  annealing  temperature 
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was  below  the  solvus.   At  annealing  temperatures  of  . 6Tm, 
precipitation  still  replaced  recrystallizat ion  as  the 
method  of  stored  energy  release. 

Johnson  [Ref.  7]  standardized  the  thermo-mechanical 
processing  of  the  aluminum-magnesium  alloys.   He  investi- 
gated 8-10%  alloys  and  reported  material  strength  of 
twice  that  of  the  5xxx  alloys  with  good  ductility.   His 
process  was  to  solution  treat  the  material  at  440  C  for  9 
hours,  isothermally  upset  forge  the  material,  anneal  for  1 
hour  at  440  C,  quench,  and  then  warm  roll.   Various  warm 
rolling  temperatures  were  used  ranging  from  200  C  to  340  C. 
He  concluded  that  the  beta  phase  contributed  by  dispersion 
strengthening  to  the  high  strength  and  good  ductility. 

Shirah  [Ref.  8]  improved  the  microstructural  homogeneity 
by  increasing  the  solution  treatment  time  to  24  hours.   This 
extended  treatment  minimized  precipitate  banding  while  not 
effecting  grain  growth. 

Becker  [Ref.  10]  combined  the  previous  studies  and 
developed  the  procedure  for  tensile  testing  isothermally  at 
various  temperatures  up  to  300  C.   His  work  concentrated  on 
8.14%  Mg  and  10.2%  Mg  aluminum-magnesium  alloys.   He 
observed  superplastic  elongations  of  up  to  400%  and 
concluded  that  the  higher  magnesium  content  in  the  10.2% 
alloy  stabilized  grain  size  and  extended  the  range  of 
superplastic  behavior  to  higher  temperatures. 
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C.   SUPERPLASTIC  BEHAVIOR 

Superplasticity  is  the  capability  of  a  material  to 
deform  to  exceptionally  high  elongations.   Elongation 
greater  than  200%  is  often  taken  as  superplastic  [Ref.  11]; 
values  of  greater  than  1000%  have  frequently  been  reported. 
The  most  important  prerequisites  for  superplasticity  are 
generally  agreed  to  be  fine,  equiaxed  grains  with  high 
angle  grain  boundaries,  temperature  in  the  range  of 
0.5-0.7Tm,  low  strain  rates,  and  a  high  strain  rate  sensi- 
tivity coefficient  (m). 

To  achieve  superplasticity,  a  fine  grain  size  of  less 
than  10  microns  is  normally  required.   A  second  phase  at 
the  matrix  grain  boundaries  is  usually  necessary  to  retard 
grain  growth  under  warm  temperature  conditions.   This  second 
phase  should  be  similar  in  strength  to  the  matrix  to 
minimize  the  formation  of  cavities  [Ref.  11].   The.  fine 
grains  should  also  be  equiaxed  with  smooth,  rounded  grain 
boundaries  to  promote  sliding.   Grain  growth  suppresses 
superplasticity  as  larger  grains  impose  larger  diffusion 
distances  and  reduce  the  strain  resulting  from  boundary 
sliding. 

Deformation  at  elevated  temperature  is  a  thermally 
activated  process,  and  superplasticity  is  observed  only  at 
elevated  temperatures.   The  flow  stress  is  a  function  of 
strain,  strain  rate,  and  temperature.   At  constant  strain 
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and  temperature,  stress  is  often  assumed  to  depend  upon 
strain  rate  according  to 

a  =  Kem  (eqn  2.1) 

where  a  is  the  stress,  e    is  the  strain  rate,  K  is  a 
temperature  dependent  constant ,  and  m  is  the  strain  rate 
sensitivity  coefficient. 

In  general,  m  increases  with  increasing  temperature. 
Superplastic  behavior  in  metals  usually  occurs  at  high  m 
values  of  .3  to  .5  and  is  the  greatest  at  the  maximum  m. 
The  value  of  m  can  be  found  by  plotting  log  stress  vs 
log  strain  rate  for  data  obtained  at  constant  strain  and 
temperature . 

The  activation  energy  (Q)  is  a  measure  of  the  energy 
required  for  temperature-dependent  processes.   For  a 
thermally  activated  deformation  process 

e  =  f (a)exp(-Q/RT)  (eqn  2.2) 

where  R  is  a  gas  constant  and  T  is  temperature. 

Values  for  the  activation  energy  can  be  obtained  by 
plotting  log  strain  rate  vs  inverse  temperature  for  data  at 
constant  stress.   Such  plots  often  indicate  that  the 
activation  energy  may  be  constant  for  a  range  of  stress 
but  may  change  to  a  different  value  for  a  different  range  of 
stress.   Values  of  activation  energy  for  deformation  often 
are  the  same  as  those  for  lattice  diffusion,  suggesting 
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lattice  diffusion  control  of  deformation.   When  grain 
boundary  sliding  controls  the  deformation,  lower  values  of 
activation  energy  may  be  observed;  diffusion  in  the  grain 
boundaries,  the  rate  controlling  process,  occurs  more 
readily  than  diffusion  in  the  grain  interior  and  is 
characterized  by  the  lower  activation  energy.   Hence 
activation  energy  measurement  may  provide  useful  insight 
into  the  mechanism  involved  in  the  material. 
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III.   EXPERIMENTAL  PROCEDURE 

A.   MATERIAL  PROCESSING 

The  aluminum  alloy  investigated  was  nominally  10.2 
weight  %   Mg  and  0.52  weight  %   Mn .   The  direct  chill  cast 
ingot  received  was  produced  by  ALCOA  Technical  Center  using 
99.99%  pure  aluminum  base  metal  alloyed  with  commercially 
pure  magnesium,  5%  beryllium-aluminum  master  alloy  [Ref.  7]. 
The  ingot  measured  127  mm  (5  in)  in  diameter  and  1016  mm 
(40  in)  in  length.   The  complete  composition  is  listed  below 
in  Table  I  [Ref.  7] . 

Table  I 
Alloy  Composition  (Weight  Percent) 

Serial  Number      S_i     Fe      Mn      Mg     Ti      Be 
501300A         0.01    0.03    0.52    10.2    0.01    0.0002 

A  portion  of  the  ingot  was  sectioned  into  billets  101.6 
mm  (4  in)  long  with  a  square  cross  section  of  width  31.75  mm 
(1.25  in).   Following  the  procedures  developed  by  Johnson 
[Ref.  7]  and  Becker  [Ref.  10]  the  billets  were  solution 
treated  at  440C  for  24  hours,  upset  forged  at  440C  on  heated 
platens  to  approximately  28  mm  (1.1  in)  in  height,  annealed 
at  440C  for  1  hour,  then  oil  quenched.   The  billets  were 
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forged  along  their  greatest  dimension,  resulting  in  a 
reduction  of  approximately  73%  or  a  strain  of  about  1.3. 

B.   WARM  ROLLING 

The  rolling  of  the  billets  into  sheets  was  comparable 
to  that  done  by  Becker  [Ref.  10]  and  performed  in  the  same 
manner  as  Johnson  [Ref.  7],  with  some  modifications  made  to 
the  technique.   To  preclude  cracking  of  the  forged  billets 
by  suspected  uneven  heating,  each  billet  was  placed  on  a 
steel  plate  used  as  a  heat  source  in  the  rolling  furnace. 
Since  isothermal  heating  was  essential  each  sample  was 
initially  heated  from  room  temperature  to  300C  for 
approximately  10  minutes  (after  the  sample  surface 
temperature  reached  300C)  before  attempting  the  first 
rolling  pass.   The  samples  were  then  heated  for  6  minutes 
between  passes  for  the  first  three  passes  and  1  to  3  minutes 
between  passes  thereafter,  leaving  the  sample  in  the  furnace 
just  long  enough  to  ensure  an  isothermal  condition.   The 
temperatures  of  both  the  sample  and  the  plate  were  monitored 
using  thermocouples.   In  the  later  rolling  passes,  the 
deformed  sheet  was  pulled  through  the  rollers  to  minimize 
warping.   Each  billet  was  rolled  into  a  sheet  about  1.8  mm 
(0.07  in)  thick,  102  mm  (4  in)  wide,  and  762  mm  (40  in)  long 
resulting  in  a  final  sample  reduction  of  approximately  94%. 

As  described  in  Becker  [Ref.  10],  the  rolled  sheets  were 
cut  into  blanks  63  mm  (2.47  in)  long  and  13  mm  (0.5  in) 
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wide.   Depending  upon  sheet  thickness  each  sheet  yielded 
130  to  140  blanks.   The  blanks  were  endmilled  in  lots  of 
five  to  a  gage  width  of  approximately  3  mm  (0.12  in)  and 
length  of  15  mm  (0.6  in).   A  fabricated  jig  was  used  as 
a  milling  guide  in  determining  the  gage  dimensions.   A 
sketch  of  the  test  specimen  is  shown  in  Figure  3.1. 

C.   SPECIMEN  TESTING 

The  tensile  testing  procedure  was  similar  to  that 
described  by  Becker  [Ref.  10].   Each  test  specimen  was 
placed  into  wedge  grips  and  held  in  place  by  pins  passing 
through  the  wedges.   The  wedge-action  grips,  grip  assemblies, 
and  pull  rods  were  supplied  by  ATS,  King  of  Prussia,  PA,  and 
were  fabricated  from  Inconel  718.   The  assembly  was  then 
mounted  into  pull  rods  connected  to  an  electro-mechanical 
Instron  machine. 

To  maintain  a  constant  specimen  temperature  during 
testing,  a  Marshall  clamshell  furnace  containing  three, 
vertically  oriented  heating  elements  was  utilized.   The 
heating  elements  were  individually  regulated  by  three 
controllers  using  thermocouples  located  adjacent  to  each 
element.   The  furnace  was  insulated  by  positioning 
insulation  paper  between  both  halves  of  the  clamshell  and 
placing  crescent-shaped  insulation  inside  the  top  and 
bottom  of  the  furnace.   Rings  of  insulation  were  wrapped 
around  each  pull  rod  just  outside  the  furnace,  with  a  final 
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Figure  3.1   Test  Specimen  Geometry 
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insulation  pad  wrapped  around  the  rings.   The  bottom 
insulation  was  wired  to  the  furnace  to  keep  it  in  place 
during  testing. 

Five  thermocouples  were  placed  inside  the  furnace  to 
monitor  the  specimen  temperature.   A  thermocouple  was 
attached  to  each  pull  rod  approximately  four  inches  above 
and  below  the  specimen  and  two  additional  thermocouples 
were  touching  the  top  and  bottom  of  the  specimen,  respec- 
tively.  A  center  thermocouple  was  initially  placed 
touching  the  middle  of  the  specimen  but  this  tended  to 
bend  the  sample  and  result  in  premature  fracture.   The 
thermocouple  was  subsequently  positioned  beside  the  specimen 
at  the  start  of  each  test . 

The  tensile  testing  was  performed  with  crosshead  speeds 
ranging  from  0.127  mm  per "minute  to  127.0  mm  per  minute 
(0.005  in/min  to  5.0  in/min)  at  temperatures  from  20C  to 
425C.   Care  was  taken  to  ensure  each  specimen  was  pulled 
isothermally .   The  testing  apparatus  was  heated  for  a  full 
day  prior  to  conducting  a  sequence  of  experiments  at  a 
constant  temperature.   A  test  specimen  was  then  mounted  into 
the  pull  rods  and  the  furnace  closed.   The  five  thermocouples 
indicated  temperature  equalization  in  approximately  1  hour 
and  the  test  was  started.   At  very  low  strain  rates  the 
bottom  pull  rod  temperature  would  slowly  start  to  drop  as 
the  bottom  rod  came  out  of  the  furnace.   The  top  four 
temperatures  normally  remained  identical,  with  the  bottom 
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pull  rod  temperature  dropping  by  no  more  than  IOC  before 
completing  the  test.   Figure  3.2  is  a  visual  summary  of 
one  test  sequence. 

D.  DATA  REDUCTION 

The  Instron  strip  chart  recorder  registered  applied 
force  as  a  function  of  chart  motion.   The  magnification, 
ratio  between  chart  speed  and  crosshead  speed  varied  but 
was  usually  set  at  10.   From  the  raw  data,  engineering 
stress  and  strain  were  computed  and  loaded  into  computer 
data  files  for  plotting  and  further  calculations.   To  remove 
such  variables  as  grip  tightening,  Instron  machine  error, 
and  elastic  strain,  a  "floating  slope"  calculation  was  made 
at  each  selected  data  point  using  a  computer  subroutine. 
Sample  elongation  was  found  by  measuring  the  fractured 
specimen . 

E.  COMPUTER  PROGRAMS 

All  plotting  and  true  stress-true  strain  calculations 
were  accomplished  using  FORTRAN  computer  programs  in 
conjunction  with  the  library  routine  DISSPLA.   Essentially, 
the  appropriate  input  data  files  were  read  into  each  program 
and  loaded  into  arrays.   These  arrays  were  then  operated  on 
to  achieve  the  desired  variables,  loaded  into  DISSPLA,  and 
plotted  against  each  other.   Also,  various  DISSPLA  curve 
fitting  routines  were  used  on  some  of  the  plots  to  obtain 
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Figure  3.2   Photograph" of  Samples  Tested  at  325  C 
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smooth  curves  between  data  points.   The  computer  programs 
are  listed  in  Appendix  B. 

F .   METALLOGRAPHY 

Selected  specimens  were  cold  mounted  on  a  base  of  glass 
using  steel  blanks  or  brass  rings  as  a  mold,  depending  upon 
the  size  of  the  sample.   The  mounted  samples  were  then 
ground  using  240  to  600  grit  paper  and  polished  with  a 
magnesium  oxide  abrasive  system.   A  Graf-Sargent  solution 
was  used  to  etch  each  specimen.   The  technique  used  was  to 
swab  each  sample  for  40  seconds.   Using  a  Zeiss  Universal 
Microscope,  optical  micrographs  were  taken  with  Panatomic  X 
35  mm  film. 
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IV.   RESULTS  AND  DISCUSSION 

A.   MECHANICAL  TESTING  RESULTS 

To  study  the  deformation  characteristics  of  this  alloy, 
tensile  testing  was  conducted  over  a  wide  range  of  tempera- 
tures and  strain  rates  using  the  procedures  described 

in  Chapter  III.   Temperatures  varied  from  20  C  to  425  C  and 

-4  -1   -1 

strain  rates  from  1.4X10    to  1.4X10    s    as  illustrated  in 

Table  II. 

True  stress  and  true  plastic  strain  were  computed  as 
described  in  Chapter  III  and  plotted  for  each  test  tempera- 
ture.  One  example  is  shown  in  Figure  4.1  for  testing  at 
300  C,  and  the  remainder  of  the  data  obtained  is  given  in 
Appendix  A.   The  curves  drawn  reflect  data  points  taken 
prior  to  the  onset  of  necking;  this  procedure  was  necessary 
as  the  assumption  of  uniform  straining  of  the  gage  section 
does  not  apply  once  necking  has  begun.   As  often  noted  in 
studies  of  superplastic  materials,  the  test  samples  exhibit 
prolonged  necking  during  deformation.   Particular  attention 
was  directed  to  the  temperature  interval  from  200  C  to  325  C 
since  Becker's  [Ref.  10]  data  indicated  superplastic  behavior 
in  this  region. 

In  this  temperature  range,  the  stress-strain  plots  for 
all  temperatures  indicate  that  at  high  strain  rates  a  strain 
softening  occurs  as  stress  decreases  significantly  with 
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Table  II 
Data  for  Al-10 . 2%Mg-0 . 52%Mn  Alloy  in  the  As-Rolled  Condition 


Temperature  C_1 
Strain  Rate  s 


20 


100 


150 


200 


225 


250 


5, 

,6X10" 

-4 

-  3 

5. 

,6X10" 

-2 

5, 

,6X10" 

-4 

5, 

,6X10" 

-3 

5. 

,6X10" 

-2 

5, 

,6X10" 

-2 

5, 

,6X10" 

5, 

,6X10" 

-3 
-4 

5. 

,6X10" 

-1 

1, 

,4X10" 

-4 

1, 

,4X10" 

5, 

.6X10" 

-4 

-3 

1, 

.4X10" 

-  3 

5, 

.6X10" 

-2 

1, 

.4X10" 

-2 

5 
1, 

.6X10" 
.4X10' 

-1 

-4 

1, 

.4X10" 

-4 

5 

.6X10' 

-3 

1 

.4X10" 

-3 

5 

.6X10" 

-2 

1 

.4X10" 

-2 

5 

.6X10' 

-1 

1 

.4X10" 

-4 

1 

.4X10' 

-4 

2 

.8X10" 

-4 

5 

.6X10' 

-3 

1 

.4X10" 

-3 

2 

.8X10' 

-3 

5 

.6X10' 

-2 

1 

.4X10' 

-2 

2 

.8X10' 

-2 

5 

.6X10' 

-1 

1 

.4X10" 

True  Stress  at 

UTS 

0.1  Plastic  Strain 

Mpa 

Mpa 

Ductility 

41-4.0 

* 

3.0 

478.0 

* 

3.2 

503.0 

* 

3.2 

404.0 

484.0 

34.2 

453.0 

524.0 

22.5 

486.0 

* 

9.3 

247.0 

297.0 

67.0 

327.0 

386.0 

51.5 

376.0 

438.0 

37.7 

405.0 

* 

28.2 

80.6 

96.0 

134.0 

119.0 

150.0 

187.0 

146.0 

184.0 

125.0 

166.0 

209.0 

144.0 

225.0 

266.0 

94.0 

268.0 

297.0 

58.8 

301.0 

329.0 

31.8 

58.4 

77.0 

215.0 

82.0 

104.0 

141.0 

101.0 

134.0 

116.0 

124.0 

167.0 

140.0 

143.0 

177.0 

138.0 

216.0 

253.0 

99.2 

262.0 

280.0 

37.3 

28.4 

36.0 

269.0 

37.7 

42.0 

294.0 

46.1 

59.0 

335.0 

59.2 

78.0 

228.0 

71.0 

91.0 

135.0 

86.9 

108.0 

179.0 

105.0 

134.0 

142.0 

136.0 

170.0 

104.0 

170.0 

206.0 

121.0 

191.0 

218.0 

54.8 

♦Specimen  fractured  before  achieving  0.1  strain 
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True  Stress  at 

Temp 

erature  C  -. 
in  Rate  s 

1.4X10  4 

2.8X10  \ 
5.6X10  \ 
1.4X10  t 
2.8X10  t 
5.6X10  „ 
1.4X10  p 
2.8X10  ^ 
5.6X10  Z. 
1.4X10 

UTS 

0.1  Plastic  Strain 

Stra 

Mpa 
17.5 

Mpa 

Ductility 

275 

22.0 

198.0 

25.0 

32.0 

438.0 

29.4 

35.0 

397.0 

39.4 

52.0 

255.0 

45.9 

58.0 

239.0 

57.1 

75.0 

120.0 

84.1 

104.0 

281.0 

110.0 

141.0 

209.0 

128.0 

167.0 

182.0 

154.0 

187.0 

73.3 

300 

1.4X10" 
2.8X10 
5.6X10  \ 
1.4X10  i 
2.8X10  t 
5.6X10  % 
1.4X10 
2.8X10  0 
5.6X10  7 
1.4X10 

11.4 

14.0 

258.0 

12.9 

15.0 

283.0 

20.1 

23.0 

392.0 

25.9 

32.0 

391.0 

28.9 

39.0 

373.0 

48.1 

60.0 

293.0 

61.3 

83.0 

160.0 

77.9 

94.0 

238.0 

93.8 

111.0 

138.0 

120.0 

154.0 

85.2 

325 

1.4X10"^ 
5.6X10  \ 
1.4X10  t 
5.6X10  'Z 
1.4X10  ^ 
5.6X10  Z. 
1.4X10 

11.3 

13.0 

398.0 

16.0 

19.0 

492.0 

19.7 

25.0 

579.0 

31.4 

40.0 

398.0 

56.6 

70.0 

282.0 

83.4 

92.0 

269.0 

108.0 

137.0 

187.0 

350 

5.6X10"^ 
5.6X10  ^ 
5.6X10 

14.2 

18.0 

362.0 

36.3 

43.0 

319.0 

82.7 

83.0 

168.0 

375 

5.6X10"^ 
5.6X10  £ 
5.6X10 

13.7 

16.0 

498.0 

40.1 

45.0 

191.0 

78.6 

77.0 

216.0 

400 

5.6X10"^ 
5.6X10  p 
5.6X10 

11.1 

13.0 

539.0 

26.5 

32.0 

441.0 

64.6 

64.0 

157.0 

425 

5.6X10"^ 

5.6X10 

5.6X10 

5.9 

7.0 

684.0 

16.5 

22.0 

326.0 

41.7 

44.0 

150.0 
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increasing  strain.   Such  an  apparent  softening  could  result 
from  localized  deformation  of  the  samples.   The  softening, 
however,  generally  appears  at  high  strain  rates.   Jonas 
[Ref.  13]  reported  similar  data  and  suggested  that  this  was 
due  to  a  break  up  of  a  fibered  structure  resulting  from 
rolling.   A  detailed  explanation  as  to  why  this  should 
result  was  not  offered  although  it  may  be  inferred  that  the 
more  equiaxed  structure  had  a  smaller  apparent  grain  size. 
At  intermediate  strain  rates  the  stress  remains  relatively 
constant  over  a  wide  strain  range,  and  at  low  strain  rates 
the  stress  increases  slightly  from  strain  hardening,  perhaps 
due  to  grain  growth. 

This  latter  behavior  can  be  understood  from  models  such 
as  those  due  to  Nabarro  [Ref.  14]  and  Herring  [Ref.  15],  or 
Coble  [Ref.  16],  all  of  which  predict  1/d   grain  size 
dependence  for  the  deformation  rate,  where  d  =  grain  size 
and  x  =  2  (Nabarro-Herring)  or  3  (Coble).   As  grain  growth 
occurs,  the  stress  must  increase  to  maintain  a  constant 
strain  rate.   To  obtain  representations  for  the  temperature 
and  strain  rate  dependence  of  plastic  deformation,  values 
of  true  stress  at  a  true  plastic  strain  of  0.1  were  plotted 
against  temperature  (for  each  strain  rate)  and  strain  rate 
(for  each  temperature). 

Figure  4.2  illustrates  the  dependence  of  the  flow 
stress  at  0.1  strain  on  temperature  for  each  strain  rate 
examined.   Generally,  as  the  strain  rate  increases  the 
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stress  increases  and  as  temperature  increases  the  stress 
decreases.   The  trend  of  the  curves  suggests  a  weakening  of 
the  temperature  dependence  of  the  flow  stress  for 
temperatures  above  the  rolling  temperature,  300  C. 

Sherby  et .  al .  [Ref.  17]  have  noted  that  one  common 
characteristic  of  superplastic  metallic  alloys  was  that 
their  resistance  to  plastic  flow  is  highly  strain  rate 
sensitive.   Figures  4.3  and  4.4  are  plots  of  log  stress 
at  0.1  plastic  strain  vs  log  strain  rate  for  selected 
temperatures.   The  data  of  Figures  4.3  and  4.4  are 
generally  not  linear  for  each  temperature.   Rather,  the 
slope  m  generally  increases  with  decreasing  strain  rate, 
although  at  temperatures  from  275  C  to  325  C  the  curves 
appear  sigmoidal  as  discussed  by  Mukherjee  [Ref.  18].   Also, 
the  slopes  appear  to  increase  with  increasing  temperature 
for  any  strain  rate.   The  data  in  Figure  4.4  was  plotted 
separately  to  avoid  overlap;  as  noted  previously,  the  flow 
stress  dependence  upon  temperature  is  weak  in  this  range. 

Based  on  the  stress-temperature  data  of  Figure  4.2, 
activation  energies  can  be  determined  by  plotting  strain 
rate  vs.  1/T  at  constant  values  of  stress  (Figure  4.5). 
These  activation  energy  values  were  obtained  from  the  data 
of  Figure  4.5  by  applying  the  relation 


Q  =  -R   ln£ 


Al/T    (a  =  CONSTANT)        (eqn.  4.1) 
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for  each  of  the  stresses  indicated;  that  is,  the  slopes  of 
the  individual  lines  on  Figure  4.5  were  used  to  obtain  the 
values  shown. 

The  activation  energy  at  higher  stresses  and  lower 
temperatures  is  about  36  Kcal/mol.   This  value  is  consistent 
with  lattice  diffusion  control  of  deformation,  either  via 
control  of  dislocation  climb  or  dislocation  glide  [Ref.  20]. 
A  change  in  slope  appears  to  occur  near  300  C;  above  this 
temperature  (at  smaller  values  of  1/T)  the  activation  energy 
appears  to  decrease  to  a  value  of  about  16  Kcal/mol.   The 
rate  and  the  temperatures  at  which  this  value  becomes 
dominant  correspond  to  the  regime  wherein  the  apparent 
temperature  dependence  of  the  stress  diminishes  (Figure  4.2) 
The  rates  and  temperatures  also  correspond  to  those  wherein 
superplastic  ductilities  begin  to  be  observed. 

Micrographs  in  Figures  4.6  and  4.7  are  of  samples  tested 
at  200  C  and  300  C,  respectively.   No  cavitation  appears 
at  200  C  although  some  cavitation  is  observed  at  300  C. 
These  observations  are  consistant  with  the  noted  break 
in  slope  in  Figure  4.5  at  about  300  C  indicating  the  onset 
of  possible  grain  boundary  sliding. 

At  temperatures  above  the  solvus  (367  C)  the  magnesium 
tends  to  go  back  into  solution,  with  the  result  that  the 
intermetallic  is  no  longer  present  to  retard  coarsening  of 
the  subgrain  structure  or  to  inhibit  recrystallizat ion .   The 
recrystallizat ion  coupled  with  the  solid  solution 
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AI-10Mg-0.52Mn 
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Figure  4.6   Optical  Micrograph  of  Al-10 .2%Mg-0 . 52%Mn , 
160x,  Tested  at  200  C,  Strain  Rate  5.6X10_4s_1;  Sec- 
Etched  Using  Graf-Sargent 
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strengthening  within  the  lattice  may  promote  grain  boundary 
sliding  as  the  dominant  deformation  mechanism.   A  charac- 
teristic of  recryst allized  aluminum  alloys  undergoing 
superplastic  deformation  via  grain  boundary  sliding  is 
extensive  cavitation.   The  micrograph  in  Figure  4.8  shows 
extensive  cavitation  in  the  test  specimen  pulled  at  400  C. 
Ductility  was  plotted  versus  temperature  in  Figure  4.9 
for  the  warm  rolled  Al-10 .2%Mg-0 .52%Mn  alloy  of  this 
research.   Included  is  data  from  Becker  [Ref.  10]  and 
Stengel  [Ref.  19]  on  this  alloy,  warm  rolled  and  then 
recrystallized  by  annealing  at  440  C  prior  to  tension 
testing.   The  data  on  the  material  recrystallized  repre- 
sents a  pattern  expected  for  these  aluminum  alloys.   The 
as-rolled  data,  however,  rises  significantly  in  ductility 
between  150  C  and  300  C.   Sample  "elongations  of  greater 
than  400%  were  observed  at  temperatures  as  low  as  275  C. 
This  indicates  that  warm  rolling  enhances  ductility  to 
values  greater  than  expected.   Theories  of  elevated 
temperature  deformation  do  not  consider  subgrain  structures 
as  likely  to  exhibit  superplastic  behavior.   Rather,  fine 
grain  size  is  thought  to  be  required.   It  is  not  clear, 
here,  why  such  structures  exhibit  such  enhanced  ductility, 
but  the  ductility  itself  is  clearly  the  result  of  the 
warm  rolling.   The  increasing  m  value  with  increasing 
temperature  also  would  result  from  the  warm  rolling.   The 
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remaining  plots  and  data  are  included  in  Appendix  A  and 
Table  II. 

Figure  4.10  is  a  plot  of  ductility  vs  strain  rate  for  a 
constant  temperature  of  300  C.   The  curve  describes  an 
expected  shape,  based  on  the  stress-strain  rate  data.   It 

should  be  noted  that  peak  ductility  of  392%  occurs  at  a 

-3  -1 

strain  rate  of  5.6X10   s   ,  a  relatively  high  strain  rate. 

More  of  these  plots  at  selected  temperatures  are  included 
in  Appendix  A. 

B .   METALLOGRAPHY 

A  comparison  between  microstructures  after  testing  at 

-2  -4  -1 

strain  rates  of  5.6X10    and  5.6X10   s    can  be  seen  in 

Figure  4.11.   There  is  a  marked  difference  in  grain  struc- 
tures as  a  function  of  strain  rate.   At  high  rate  where 
ductility  is  lower  and  time  at  temperature  is  short, 
little  cavitation  is  seen  and  little  evidence  for  resolu- 
tioning  of  the  second  phase  or  recrystallizat ion .   On  the 
other  hand,  at  a  lower  rate  with  more  time  at  temperature, 
the  resolutioning  of  the  second  phase  and  recrystallization 
lead  to  more  ready  boundary  sliding  and  the  accompanying 
cavitation . 

In  summary,  the  activation  energy  for  deformation  follows 
a  pattern  suggesting  lattice  diffusion  giving  way  to  grain 
boundary  diffusion  control  as  temperature  increases  above 
300  C,  the  rolling  temperature.   The  m  values  attained 
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Figure  4.11  Optical  Micrographs  of  Al-10 .2%Mg-0 . 52%Mn , 
500X,  Tested  at  400  C,  Sectioned  Longitudinally,  to 
Compare  Grain  Size  and  Extent.of..  Cavitation .   Strain 
Rates  Were  5X10   s   and  5X10   s   ,  Respectively. 
Etched  Using  Graf-Sargent  Solution. 
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were  0.4-0.5  at  approximately  300  C  and  resulted  in 
superplastic  ductility  in  a  structure  consisting  initially 
of  fine  subgrains  rather  than  grains.   These  observations 
suggest  further  development  of  dislocation  models  is  needed 
Also,  it  appears  that  current  grain  boundary  sliding  models 
seem  inadequate  to  explain  the  observed  behavior. 
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V.   CONCLUSIONS  AND  RECOMMENDATIONS 

The  conclusions  drawn  from  this  research  are:   1)  warm 
rolled  Al-10 .2%Mg-0 .52%Mn  alloy  is  superplastic  at 
temperatures  as  low  as  275C;  2)  the  warm  rolled  alloy 

exhibits  elongations  of  400%  at  300  C  and  strain  rates  of 

-3  -1 
5X10   s   ;  3)  the  warm  rolling  is  responsible  for  the  super- 
plastic  response  at  lower  temperatures  (near  300  C); 

4)  grain  boundary  sliding  appears  to  be  the  predominant 
superplastic  deformation  mechanism  at  higher  temperatures 
(above  300  C),  based  upon  activation  energy  data; 

5)  microstructural  data  indicates  that  the  structure  prior 
to  testing  consists  principally  of  fine  subgrains  rather 
than  grains. 

Recommendations  for  further  work  are:   1)  microstruc- 
tural analysis  be  conducted  to  reconcile  the  observations 
of  activation  energies  appropriate  for  boundary  sliding 
with  the  observations  of  dislocation  substructures  being 
present;  2)  investigation  into  alloying  effects  on  micro- 
structure  and  superplast icity ;  3)  examination  and  further 
analysis  of  microstructural  effects  of  annealing  and 
recrystallizat ion  in  this  alloy. 
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APPENDIX    B 

C  TRUE     STP=SS     \S    TPLE    STRAIN     T*300C 

C  THIS     PPCGRA,"    CCVPUTES     TRUE     FTRESS    AND     STRAIN    FROM     INPUT     FILES 

C  ENGINEERING     STPfSS     IN  0     STRAIN,     AND    THEN    PLOTS     TRUE 

C  STRESS     4GAINST     TRLE     STRAIN. 

Q  ************  **:»  4  ********x  *******  ******** 

EXTERNAL    3LCFE 

REAL     Ai  (10  1  ,A2(  K)  ,A3(10)  ,AM  10)  ,A5(10)  ,A6(10) 

REAL     A7(10),Ag(lC),J9(I0),AlC(10),LEG?AK(5OO) 

REAL    31  (10  1  rB2(lC)  .83(10 )t 84 (10). 85(10 ).B6( 10) 

REAL    B7(10),86<1C),B9<10),81C<10> 

RFAL    SI  (10)  .S2(1C)  ,S3( 10  ),S4<10 ) ,S5( 10 ),S6(  10) 

REAL    S7I10)  , S5(1C)  ,S9(  10)  ,S10(10) 

REAL    El (10)  ,  E2  11C)  ,E3( 10)  ,E4<10)  ,E5(  10)  ,E6( 10) 

R^AL    E7(10)  , Ee(lC) ,E9(10)  , El 0(10) 

REAL    C,C,E»  S  ,ChG,TC,TD 

INTEGER     I,PTS1,PTS2,PTS3,PTS4,?TS5,PTS6 

INTEGER    FTS7,PTS8,PTS9,PTS10 

1=0 
WPITE(6,5) 
10  CONTINUE 

1=1*1 

REAO( 57,*,ENC=20  )A1 (I) , 31 ( I ) 

SKI  )=A1  <I)*<  1+6K  I  )  ) 

E1(I)=ALCG(B1  <  I)  +  l  ) 
C  ADJUSTMENT    FGF     INSTPON    ***** 

C  =  5„34 

C=.05 

E=E1(  I) 

S  =  S1(  I) 

CALL    SL0FE1C  ,C,E,S.CHG) 

El( I )=CHG 
q  ***** 

WRITE  (6,  DAK  I)  ,S1(I)  r31(I  )  ,  EKI) 

GC  TO  1C 
20      CCNTINUE 

PTSl=t-l 
C      111111111111111111111 

1=0 
WRITE( 6, 5) 
30      CCNTINUE 
1=1  +  1 

READ( 54,*,ENC=40  )A2(I)  ,82(1) 

S2(I  )=A2(I)*(1  -te2(  I  )  ) 

E2(I )=ALCG(B2  (  I) +1 ) 
C  ACJUSTMENT    FCP     INSTPON    ***** 

C=10.4 

C  =  ,l 

S  =  S2(  I) 

E=E2(  I) 

CALL    SLCPEtC ,C,E,S,CHG) 

E2(I  )=C)-G 
C  ***** 

WRITE(6,2)A2(  I) ,  $2(1), 82 (I ) ,  E2( I) 

GC  TO  3C 
40      CCNTINUE 

PTS2=I-1 
C      222222222222222222222 

1=0 
WRIT={  6,5) 
50      CCNTINUE 

1=1  +  1 

PEA0(56 ,*,E*IC=60  )A3  (I)  ,B3(  I  ) 

S2(I  )  =  AKI )*( 1 +«2( I ) ) 

E3( I )=ALCG(B3 ( Il+l ) 
C       ADJUSTMENT  FOP  INSTFCN  ***** 

C=ll„6 

C=.017 

S=S3(  I) 

E  =  E3(  I) 

CALL  SLCFE(C,C,E',S,CHG) 

E2(I  )=C)-G 
C       ***** 

WRITE  (6,  3) A3(  I)  ,S2(I),83 (I  ),c3( I ) 

GC    T0    5C 
60  CCNTINUE 

PTS3  =  I-1 

"i=6" 

WRITE ( 6,5) 
70  CCNTINUE 

1=1+1 

REAO(55,*,EN0=*0  )A4(I) ,84( D 

S4(I ) =A4(I )*( 1+94(1) ) 

E4< I )=ALCG(B4<  Il+l) 
C  ACJUSTMENT    FCP     INSTPON     ***** 

C=14.2 

C  =  .05 

S  =  S4<  I) 

E=<=4(  I  ) 

CALL    SLOPE(C,C,E,S,CHG) 

E4( I )=ChG 

C  4**** 
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WRITE(6.1>  AM  I  )  ,SM  I  ),BMI  )  ,  E4(  I  ) 

GC    ~3    7C 
80  CCNTINUE 

PTS4=I-1 
C  44444M444M.4444444444444.44A 

1=0 
WRITEf  6,51 
90  CCNTINUE 

1=1  +  1 

REA0<  53  ,*,ENC  =  lCC)*5d)  ,  e5( I  ) 

S5d  )=A5d  )*<  H85(  I  )  ) 

E5(I  )=ALCG(E5 (  I  )+l  ) 
C       ADJUSTMENT  FCP  INSTRON  ***** 

C  =  23.7 

D*.18 

S=S5( I) 

E  =  E5U  I 

CALL    SLCF51C ,C,E,S,CHG) 

E5< I )=ChG 


WPIT={6,2)  A5(  I)  ,  <5d)  ,B5d  )  ,E5(  I) 

GC    TO    90 
100  CCNTINUE 

PTS5M-1 
C  55555555555555555555555555555 

1=0 
WRIT'H  6,  5) 
200  CCNTINUE 

1=1  +  1 

READ( 52,*,ENC=3CC)A6(I  1,86(1) 

S6(I  )=A6(I  )*  (Het<  I  )  ) 

E6d )=ALCG(R6d )+l) 
C  ACJUST,«ENT    FCP     INSTRON    ***** 

C=M.4 

D=.133 

S  =  S6<  I) 

E=E6( I) 

CALL    SLCPEtC ,C,E»S»CHG) 

E6d )=CHG 

WRITE(6,3)A6(I),S£{I),B6d),E6(I) 

GC  TO  2CC 
300     CCNTINUE 

PTS6-I-1 
C      666666  66  66666  6  6  66  66666666666666  66666 

I=n 

WflIT={6 ,5) 
400  CCNTINUE 

1=1  +  1 

REA0(40,*,ENC=5CC)A7d )  ,S7( T  ) 

S7d  )=A7(I  )*(  H87<  I)  J 

E7(I)=ALCG(B7( I ) +1  I 
C  ADJUSTMENT    FCP     INSTROM    ***** 

C=58. 

C=,25 

S  =  S7(  I  ) 

E  =  E7(  I) 

CALL    SLCFE(C,C,E,S,CHG) 

E7( I )=CPG 

WR*TE(6,1)A7(  I),S7(I),B7(I)  ,  E7(  I) 

GC    TO    4C0 
500  CCNTINUE 

C  77777777777777777777777777777777777777 

1=0 
WRITE(6,5> 
600  CCNTINUE 

I=I  +  1 

READ  (39  ,*.EN0=700)A8d  )  ,  B9  (  I  ) 

S8d  )=ae(i >*( i-»aem  > 
Eem=ALCGiee  ni+i  > 

C  ADJUSTMENT    FCP     INSTRON    ***** 

C=56. 
0=„1 
S=S3( I) 
E=F8(  I  ) 

CALL  SLCFE(C,C  ,E,S,CHG) 
ES(  I  )=C1-G 

WR*T=(6,2)A8(  I)  , S3(I), 88 (I ) »E8(I) 
GC  TO  6CC 
700     CCNTINUE 

C      8e8988e'8E6838eeE6EeeE838aa888ee88 
1=0 
WRITE(6,5) 
300    CONTINUE 

REA0(3  8,*,ENC  =  9CC)A<;d  )  ,B9(I  J 
S9(  I  )=AC(  I  )*(  1  -te9(  I  )  1 
E9(I )=ALCG<B9(  11+1 ) 
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C  ADJUSTMENT    FCF     INSTRON    ***** 

C=T5o3 

D  =  .l 

S  =  SQ(  I) 

E  =  t9( I ) 

CALL     SLCFEtC  ,C  ,E,S,CHG) 

ESI I)=CHG 
C  ***** 

WRITE(6,3)A9< I)  ,«9(I),89(I )  ,  E"=(I) 

GC  TQ  8C0 
900     CONTINUE 

PTS9=I-1 
C      999999C99<;999<;S  =  <;,;99|;9999999 

1=0 
WRITE(6,5) 
1000    CONTINUE 

1*1+1 

REAO(36,*,ENO=11CC)A10(I),B10(I) 

sioi i  )  =  aio (i  >*<i*eio( i ) > 

E10(  I  I  =  AL0G(B1G(  Il-t-1) 
C  ADJUSTMENT    FCP     INSTRCN     ***** 

oils. 

C  =  .25 
S*S10(I  ) 

e=eio(  i  > 

CALL    SLOFE(C,C,E,S,CHG) 

E10( I )=CHG 
C  ***** 

WRITS(6,1)A10(I  )  ,S10(I  )  .  eiOl  I),E10(  I  I 

GG  TG  1CC0 
110  0         CONTINUE 

PTS10-I-1 

c  lcicioicicioicicicicioicioioicio 

CALL    COMPRS 
C  CALL    SMOCTH 

CALL    P0L>3 
CALL    3LOWLP(.8f) 
CALL     FAGEfll.  ,So5) 
CALL    VI  XALFI  '  INSTRU' ) 
MAXLIN=LINEST(LEGPAK ,500,20) 
CALL    LINES!  ' 1  .4X10  <  EH.  5  )-4-S  •  ,LEGPAK,1  ) 
LINES( • 2.8X1C(EH.  51-4.J'  ,  LEGPAK,2> 
LINES (  ' 5.6X10 (FH. 5 1-4  S»  ,LEGPAK,3 ) 
LINES ( '1-4X10(EH.5)-3S«  ,LEGPAK,4> 
LINES (  '2. EX  10 (EH. 5)-3$»  ,LEGPAK, 5) 
LINFSC  5.6X10  (EH. 5  )-3$«  ,LEGPAK,6> 
LINESl • 1.4X10 (EH. 5) -2$'  ,L£GPAK,7) 
LINES( ' 2.8X10 (EH. 5) -2$'  ,LEGPAK,3) 
L I NES(  '5.6X101  EH. 5 )-2$»  ,LEGPAK,9) 
LINES( •  1.4X10 (EH. 5 (-!$•  ,LEGPAK,10) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


f*YLEGN(  '  STRAIN    RATES    l/ii',16) 
FUTLRA 

SHCCHR(9C.,1,. 002,1  ) 
THKCRVUC2  ) 
H6IGHT( . 2) 
XNAHEl'TBUE    STRAINS ', 100 ) 


CALL    YNAMECTPUE     STRESS ((> MPA ()) S' , 100 ) 
CALL    AREA2D( 8.C.6.CI 

CALL    HEACIN('        S',100,.5,2) 
CALL    HPACINl ' STRESS    VS    STRA IN  $ •  ,  100 ,1 .5 ,2 ) 
CALL    GRAF(0., .1  ,1.0, C. ,50.,22C.) 

CALL    THKFRM ( ,C3  ) 

CALL  FRAME 
CALL  CURVEfEl ,  SI ,  PTS1 ,  *-l ) 
CALL  CURVE(E2  ,S2  ,PTS2,*1) 
CALL  CURVEIE3  ,S3,FTS3,+1) 
CALL  CURVE(E4,S4,FTS4,+1 ) 
CALL  CURVE(E5  ,S5,FTS5,  +  1) 
CALL  CURVE(E6  ,  S6  ,  PT S6 , +1 ) 
CALL  CURVE(E7,S7,PTS7,-t-l  ) 
CALL  CURVE(E8  ,S8,FTS8,*1) 
CALL  CURVECE9  ,  S9  ,  PTS^ ,> 1 ) 
CALL    CURVE(E1C  ,£1  C  ,  PTS10  , +1  ) 

CALL  RESETf  'ThKCRV  ) 
RFSETt • HEIGHT' ) 
LEGENOf  LEGPAK,10,5 


5,3.  ) 


CALL 
CALL 
CALL  BLFEC( 5.2,2.7,2.5, 3. ,.02) 

CALL  MESSAGt  ' TEMPERATURE  =  $  '  ,100 ,2. ,4. 5 ) 

CALL  INTNCH30C,  '  «BUT' .  'ABUT'  ) 

CALL  MESSAG('  ( Eh. 3  J 0( EX HX ) C  I '  ,  100 , *  ABUT ■ , ' ABUT  '  ) 

CALL  BLPEC( 1.8  ,4.4,2. 7 , . 4,. C2 ) 

CALL  MESSAG(  •  AL-  10.25MG-0.52  SPNS •   ,100  ,  2  .5  ,5  .5  ) 
CALL  BLPECl 2  .  3  ,  f  .4  ,  2.  6,  .  4,  .  C  2  ) 

WUUWUUWWbLWWWktWWWWwW 
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CALL    MESSAGt'END    CATA    oQINTS    CC    NOT     $ '  ,  1  00  , 1. 2 , . 1  ) 
CALL     M5SSAG<  '  INCICATE    FR ACTU P E $ ■  ,  100 , • »8UT *  ,  • ABUT '  1 
CALL    8LPECQ.1  ,.Cfc,4.9,.24,.C2) 

CALL  GRIC(2,2) 

CALL  ENOPL(O) 

CALL  OONEFL 

1  PCRMATf 1X,4F12.51 

2  FCRMAT(1X,4F12.5 ) 

3  FCRMAK  1>,4F12.5) 
C4  FORM  AT (IX,  13  ) 

5  FCRMAT(1X,/,4X,'ENG    STRE SS'  ,  2 X  ,  • TRUE    STRESS », 2X ,' ENG    STRAIN',  2X, 

3  'TRUE    STRAIN1 , / ) 

STOP 

ENO 

SUBROUTINE    SLCPE (C , C,E , S ,CHG > 

REAL    C,Cr,E,S.CI-G,TC  ,T0 

TC=C*< l.+OJ 

TC=ALOG(C+L.  ) 

CHG=P-S*TO/TC 

IF(CHG.LE.O. )GC    TC    11 

GC   TH    21 
11  CHG=0. 

21  CCNTINUE 

RETURN 

END 
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C  PLOTS     STRESS     M    C.i    ST~  AIM    V  5    ^-  M°=  =  47LR  E. 

Q  -*x  »jj^:  t  *  3  ji---s»  *  4  3?  -  »  *  a  -J«>;  -i  •-'  "-sJi  4  »  rr  :i-<  .-4  ;»  ais  a-«  :su 

CI  PENSION    M1CC)  ,E(imi  ,S2C{  15  ),3R2CI15)»3100(L5  ),SR100(L  ?) 
CIMEMSICN    SlfCllS) ,sR150(15) ,5200(1  5» ,L£GPAK(5D0 J 

CIVEMSICN    SR2CC ( 15)  ,S2 25  (15  ),  SR2 25 (  15 ), 52 50(1 5), SR 2 50  ( 15  I 

GIMEMSICN    S27E(lf  )  ,£R275(15)  ,5300(15  )  .SR300  ( 15  )  ,5  2  25  (  15  ) 

CIMEN5ICN    3R2Z5<  15)  ,33  50(151  ,5R350(  15)  ,3375(15)  ,  5P.275  (15) 

OIJ^NSICN    SACC  (15)  ,5^00(15  I  ,54  25(15)  ,SR 4-25  1  15)  ,C(  100) 

INTEGER     I ,J  ,C  ,c  ,F  ,K,l,i-<  ,  ,\  ,  P  ,  C 

INTEGER    PTS1  ,PTS2,FTS3  ,PTS4-,F7S5,PTS6,PTS7,PTS3,PTS9 

INTEGER    FTS10  ,PT511  ,PTS12,PTS13 

PTSl=fc 

PTS2=3 

PTS3=12 

PTS4=6 

PTS5=3 

PTS6=12 

PTS7=6 

PTS3=3 

PTS9-11 

PTS10=6 

PTS11=3 

PTS12=3 

PTS13=3 

I=C 

D=0 

E=0 

F=0 

J=0 

K=0 

1=0 

P=0 

N=0 

P=0 

C=0 
2C0  CCNTINUE 

1=1  +  1 
C  WRITE (6  ,2000  )  I 

REA3<95,*,ENC=10C)A(I),8(I),C(I) 
C  WRITE(6  ,2000  )4<  I  ),E  (I)  ,C(I  ) 

IF(B(  I) .50.. 129 IGC    TC    1 

IF(B(  I) .50. .216  IGC    TO    2 

IF(B(  I)  .EQ.o556  IGC    "^0    3 

IF(B(  I  )  .50.1.2=  IGC     TC    A 

IF(B(  I  )  .50.2.78  IGC    TO    5 

IF(B(  I) .EC. 5.56  IGC     TO    6 

IF(B<  I  1.50.12.=  IGC    TC    7 

IF(B(  I) .EC. 27. 8  IGC    TO    3 

IF(B( I) .EC.55.clGC    T0    9 

IF(B(  T I  .EQ.12=.  IGC    10    10 

1  CONTINUE 
J  =  J+i 

S20< J)=4<  I) 
5P20( J1=C(I  I 

WRITE (6,100C  )52C(J)  ,SR20(JI  ,  E (I) 
C  WRITE(6  ,2000  )J 

GC    TT    2CC 

2  CCNTINUE 
C=0+1 

C       WRI7E(6  ,200C  )C 

SlOPt  C>=4< I  I 

SR100 (D  )=C(  I  I 
C       WRITE (6.1J0C ISICCIC I ,SRi:0(D  I  ,B( I) 

GC  TO  2CC 

3  CONTINUE 
E=E+1 

S150(5)=/(T) 
SR150(E  )=C( I  I 

C  WRITE (6 ,100  0  I515C1E  I, SRI  50 ( E)  ,8( II 

C  WRITE (6  ,2000  IE 

GC    TO     2CC 

4  CCNTINUE 
F  =  F+i 

C  WPTTE(fciZ?OC  IF 

S200( F)=A(  I  I 

5R200 (F  )=C(  I  I 
C  WRITS  (6,100C  )S2CC(F| ,SR20O(F  I  ,8(  I) 

GC    TO    2CC 

5  CCNTINUE 
K  =  K  +  1 

S225( K) =4(1  I 

SP225(K  )=C(  I  I 
C  WRITE  (6,  1000  )5  22  5(K),SR2  25(K),8(I) 

C  WRITE (6  ,2000  I  K 

GC    TO     2CC 

6  CCNTINUE 
L=U-1 
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c 

7 
C 

c 
a 
c 

c 

9 

c 
c 

1C 

c 

c 
ion 


iaoo 
200c 

300C 


WR IT=(6  ,2CO?  )L 

S250!  L) =A(I  ) 

SF25TIL )=C( I ) 

Jjg^l^.lOOQ  >S25C(L),SR250(L),e(  I) 

uL     i  'J     2  C  C 

CONTINUE 

f=M+l 

S275<M)=A(I  ) 
SR275(M  )=C(  I  ) 

\SimUMiizlu,lusn75tnuet11 

GC    TT    2CC 

CCNTINUE 

N=N+1 

l*RITE(6  ,2000  )N 

S300! N) =  A< I ) 

SR3O0 (M  )=C(  I  ) 

b«II£ (6,1300 JS3CC  IN  )  ,SR300  (  N  )  ,8  (  I ) 

CCNTINUE 

P  =  P+1 

WRTT^ (6  ,2000  )F 
S325(  PI=MII 
SR325(P  )=C (I ) 

^lZ%  (  6;  1000  )S22f(P  |,  5R325(P),8(!) 

bL     i a    2CC 

CCNTINUE 

G=Q  +  L 

WFIT=  (6 ,200^  )  C 

S250(Q)=d(I  ) 

SP350 (C  )=C(  I  ) 

^IX^<6,100ul£35C(C),SR3  50(C),e(I) 

GC    TO     2CC 

CCNTINUE 

CALL    CCPFRS 

CALL    BLC^UP(,£5) 

CALL    MtXflLc( ' IN'STPU' ) 

fAXLIN^LINuST  (LEGPAK  ,5  00  ,20 

CALL  LINES!  M  .4*1C  (  EH.5  )-4i 
LINES! ' 2.fiXlC( Eh.5 l-4i 
LINES!  '  5.6X1?! -Ho  5 )-4-i 
LINES (  '  1.4x10! CH»5  1-3$ 
LINES!  ' 7.2X1C(=H.5  ) -3  $ 
LINES! ' 5.6X1C1 EH. 51-3$ 
LINES! '  l.txlOt  ^H.5  ) -2  $ 
LINES! ' 2.EX1C! FH. 5  1-2$ 
LINES! ' 5.6X10(2H. 51-2S 
LINES! • !«4*10( EH.5)-1S 

PATES    1/Si 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


"YLcGN!  '  STRAIN 
FAGEdl.  ,€.5) 
=  UTLF.A 
SHCCHP.  KC  rlt. 

THKCSV (oC2  ) 
HEIGHT! 


,LFGPAK  ,1) 
.LCGPAK  ,2) 
,LEG?AK  ,3) 
,LEG?AK ,4) 
,L2G?4K  ,5  ) 
,LZG?4K  ,6) 
,LEGPAK ,7) 
.LEGPAK  ,8) 
,L  =  GPAK  ,3) 
LEGP.'.K  ,10  ) 
,161 


XHX1C     S»  ,100 ) 

(  (  )MPA(  II     $>  ,100) 


;»2 ) 

■"MPEFATURES *  ,100  ,1. 
, 100., 600. ) 


5,2) 


XNAME!  'TEMPEPATURE     (EH. 2)0! 

YNAM*( " STRESS     *T    1,1    STRAIN 

P0LY3 

^3  =  420!  5.  ,6a ) 

HEACI'IC  J', 10D 

l-EACH!  ■  STRESS    VS 

GRAF!  I,  »SCa  ,45C,  i 

THKFP'-l  (  ,C2  ) 

FFAM  = 

CURVE!  SF2CS2C  ,?TS1  ,  +  11 

CUFVEtSRIOO  ,S1C0,PTS2 ,*1 ) 

CURVE! SRI 5C  ,S1 50, PTS3 , ♦ 1 ) 

CUPVE!SP200,S2CO,PTS4,+1) 

CURVE  ISP  22 5  ,S2  25, PTS5 , +1 ) 

CURVE(SR2fO,S2  5C,PT<6,+l) 

CU fl VE (SR 27 5, S2 75, PTS7, +1  ) 

CUFVE(SR2CC,S2C0,PTS8,+1) 

CURVE (SR22  5, £225, ?TS9,>1) 

CUFVC(SP25C,S2  50TPTS10,*1) 

CURVE! SR 275  ,S3 75, PTS11  ,+I) 

CURVE! SRACC,SAC0,PTS12,+]) 

CURVE! SR«2  5  ,S4  25 , PTS13 , +1 ) 

RESET! ■ ThKCFV • ) 

RESET!  •  t-EICl-T'  ) 

L=GEM0(LEG?iK  ,10,5,2.5) 

9LPEC!  *.7,2. 2,  2.  5, 3.  ,.02) 
?3S24«3  3«33  JUS;*??.; 
CALL    :iESSAG<  '  AL-  10.  ZSMG-O.  52  %PN$  '  ,100,2.5,5.5  ) 
CALL       eLREC!  2.2  ,  f.4,2.  6, .4,. CD 
CALL    GFIC12.2) 
CALL     ENCFL(O) 
CALL    DHN6PL 

FCRHAT! 1X,F1C.4,1X,F10.4,1X,F10o4) 
FCPMAT! 1X.I3  ) 
FCRMAT! 1X,3F12.5 ) 
STOP 
ENO 
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C       FLCTS  LCG  STRESS  AT  ">.  1  !T"i^   v"..  LCG  STRAIN  7A"-. 

(;  ****.*  s?  -  a  41  art:-*  $#  t^-»  s  ■'---•-  V  *-*  i-Ji  -*-:  -.i: -«:*»*  **as 

OI^NSICN    A ( ICC)  ,e ( 130 ) f  S2  0(  10 )  ,  SR2C(  10) ,S100 ( 10 ) , SRI  CO ( 1' 

CI  MEN  SI  C.N    SISC(IC)  ,CP15C(1C)   ,<2O0(lC),lSG?4K(50O) 

01  m?m  si  C.N    SP.2CC110)  ,522  5(101  .<P2_5(  10)  ,S250(1  J)  ,  SP.253(10  I 

CIMENSICN    S27SUC1  ,SR275  (10)  ,5300(1  C),SR300O.0>  o325(  101 

CIMENSIC.N    SP.  Ill  (  1C)  ,33  50(10)  ,SR350(  11)  ,S3  75(10),3P3  75(10) 

OIMENSICN    S^CC(IC)  ,SR400 ( 10  )  ,£42S( 1 C ) , SR425 < 1 0 )  ,C ( 100  ) 

INTEGER     I, J 

INTEGER    PTS1  ,PTS2,?TS3  ,PTS4,PTS5 ,?TS6  ,PTS7,?TS3 ,?TS9 

INTEGER     PTS10  .FTS11  ,PTS12,PTS13 

PTS2=2 

PTS3=3 

PTS4=7 

PTS5=7 

PTS6=10 

PTS7=10 

PTS8=10 

PTS9=7 

PTS10=3 

PTS11=2 

FTS12=3 

PTS13=3 

1=0 
200  CONTINUE 

1  =  1  +  1 
C  WRITE (6,2000  )  I 

READ<  95,*,2NC  =  lCC)MI),e<I),C(I) 
C  WRITE(6,20D0  )4(  I  ),e  (I)  ,C  (I  ) 

IF(I.GT.21GC    TC    1 

S100( I)=4(I )*1.S£ 

SRIOO  (  I  )=B(  I  H.CC1 
C  WRITE (6  ,1000 )S1CC(I  ),SR1C0(  I  1 

GC    TO    2CC 

1  CCNTINUE 
IF(I.GT.5)G0    10    2 
J=I-2 

C  WRIT":  (6  ,2000  )  J 

S150( J)=i( I )*lal£ 

SR150( J J=9(  I  )*.CC1 
C  WRITE(6  ,1000  )S15CU),3R150(  J  1 

GC    T0    2CC 

2  CCNTINUE 

IF( I.GT.121GC    TC    2 

J=I-5 
C  V»P  IT2  (6  ,2000  |J 

S200( J)=4( I  1*1. ££ 

SR200  (  J)=6(  I  M.CC1 
C  WRITE  (6  ,100C  )  S2CCU  >  .SR2C0  (  J  ) 

GO    r0    2CC 

3  CCNTINUE 

C  ££££.££££E£gS£££5££££  £.££.£££.££,£££<:,:£,  £,££.£££,£,£, 

I  F(  I.GT.191GC    TC    4 

J=I-12 
C  WRIT"  (6  ,200')  )  J 

S225I J)=M I )*].E£ 

SP225( J)=B(  I  )*.JC1 
C  WRITE (6, 100C  )S22?(J  ),SR2Z5( J) 

GC    To    2CC 

4  CONTINUE 

IF( I.GT.29JGC    TC    5 

J=I-19 

S250( J ) =4 ( I )*!•=« 

SR250(  J  )=8(  I  M.CCl 
C  WRITE (6  ,2000  )  J 

C  WRITE  ( 6.1C0C )S2  5C( J ),SR2  50( J) 

GC    TO    2CC 

5  CCNTINUE 

C  ££££,££  £££££££££  £{£££££££  ££,££££££.  ILLS.  LIZ.Z.LZL 

IF(IoGT.39)GC    TC    6 

J=I-2  9 
C  WRITE (6, 2000  J  J 

S275<  J)=*(  I  )-*l026 

SR275( J  )=B( I  )*.GC1 
C  WRIT^ (6  ,1000  )S27S(J),3R275(J) 

GC    TO    2CC 

6  CCNTINUE 

IF(  I.GT.491GC    TC    7 

J=I-39 

S200(  J»=4( I  1+1. c€ 

SR300 ( J)=tf<  I  )*.GC1 
C  WRITE (6  ,2000  )  J 

C  WRITE(6  ,  1000  )S3CC(  J  ),3R300  (  J) 

GC  TO  2CC 

7  CCNTINUE 

C  £££££,£££££££££££  ££££££,££££>££,£££££&£££££££,& 
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c 

1G 


C 

c 

11 
c 


c 

100 


IF(  I. 
J=I-* 
WRITE 
S225< 
SR325 
WRITE 
GC  TO 
CCNTI 
IF(  I. 
J  =  T-5 
S250( 
SR3  5  0 
WRITE 
WRITE 
GC  T0 
CCNTI 
£££££. 
IFdo 
4=1-5 
WRITE 
S3  75( 
SR275 
WRITE 
GO  TO 
CCNTI 
IF(Io 
J  =  I-«s 
S400( 
SR4O0 
WRITE 
WRITE 
GO  T3 
CCNTI 
£££££ 
J=I— b 
WRITE 

SR425 
WRIT'^ 

gc  n 

CCNTI 

CALL 

CALL 

CALL 

CALL 

CALL 

^AXLI 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

C1LL 


.561GC    TC    8 

,200C  )J 

=  MI 1*1.26 

i=fl(  i  >*.:ci 

,1000  1S225U  ),SR325 (J  ) 
CC 


GT 

9 

(6 

J) 

(  J 

(6 

7 

NU 

GT.591GC    TC    9 


o 
J) 
(J 
I  6 

(6 
■) 

NU 
££ 

GT 
9 

(  t 
Jl 
(J 
(6 
2 
NU 
GT 
2 
J) 
(J 
(6 
[6 

9 

NU 
EC 

= 

(6 

J  ) 

(  J 

(  5 

2 

NU 

CO 
3L 
SM 
pj 

PA 
,\  = 
Li 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 


=  M  I  1*1.26 

)=8(  I  X.0C1 

,2000  )J 

,1000  >S35C(  J),SR350(J  ) 

CC 

E 

£££££>  ££EEE££ES.£  ££££>££££££,£>£.  £.£££££££ 

.621GC     TC    1C 

,2000  )  J 

=  A(  I  1*1.56 

)=B(  I  >*<,2C1 

,1000 )S21=( J) ,3R375( J) 

CC 

E 

. 651GC    TO    11 

=A(I 1*1.26 
1 =B < I  )*.CC1 

,2000  )J 

,100C  1  i-^CC  (J  1  ,SR4C3(  J) 

CC 

E 

£E££££E££EE££ ££££££ ££££££££££££££££ 


,200 

=  A<! 

)=8( 

,100 

CC 

E 

NPRS 

cwup 

CCTH 

NTH 

GE(I 

LINE 

NE^f 

NE3( 

N23( 

r^E3( 

NE3( 

NP3( 

NES( 

NES( 

N53( 

NE3( 

NE?( 


0    )w 

)*lo 

I  H. 
0  134 


i£6 

25 ( U  >,3R^25 (J  1 


(.«5) 


i  p      e  ) 

ST  (LiCPil-  ,500,20  1 


15C 

2C0 


•3CC: 
•  225 

'  275 
'  ACO 


,L?GPAK  ,1  ) 
.LCGPAK  ,2) 
,L:GP4K  ,3 1 
,LCGP4K  ,4) 
,  LIGPAK  ,5  1 

,l:g?*,k  ,6 1 

,  L2GPM< ,71 
,L£GPAK,1 1 
,LEG?AK  ,3  1 
tLEGPAK ,2) 
,  L-C-PAK ,9 1 
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1000 
200C 
300C 


CALL  L! 

CALL  *  I 

CALL  FU 

CALL  SH 

CALL  TH 

CALL  HE 

CALL  XN 

CALL  YN 

CALL  AR 

CALL  HE 

CALL  HE 

CALL  LC 

CALL  TH 

CALL  FF 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  CU 

CALL  RE 

CALL  RE 

CALL  *Y 

CALL  LE 

CALL  BL 
FCR  TEM 
ALSO,  F 
1.4. 

VWUWW WW 

CALL  MP 

CALL  E 
WWWWW  *« 

CALL  GP 

CALL  5.N 

CALL  DC 
FCRMATf 
FCRMATI 
FCPMAT( 

CTnp 

END 


NES<  ' 

XALFl 

TLFA 

CCHR  ( 

KCrV  ( 

IGHTt 

AP:<  ' 

AMF(  » 

EA20( 

ACIN( 

ACIN( 

GLOGt 

KFRM( 

APF. 

PVE(S 

PVE(3 

PVEIS 

PVE(S 

PVE(S 

FVE(3 

PVE(S 

PVF(S 

P\/E(S 

PVCtS 

PVEfS 

PVE(  S 

SET(  • 

SET(  ' 

LEGN( 

GEND( 

PEC(  5 

FS    TC 

CP    TE 


425S  •  ,L"GPaK  ,101 

'  IN S7RL  '  ) 


SC.  ,1,.C02  ,1  ) 

•  C21 
.2) 
STRA 
STPE 
E.  ,6 

•  i 

•  STP 
.CCC 

•  C2) 


IN    5AT=    S(  EH.S  )-!$•  ,122) 

SS     AT    0.  1    STRAIN     (  (   IP A (  )  I S '  , 10 J ) 

.) 

•  ,1C0,.5  .2) 

ESS    VS     STRAIN    RAT=S  '  ,120 ,1.5,2) 

1  ,2.  .oOOCOCO.  ,2.  ) 


PlOCi 
P150, 

R2CC, 
P225, 
R23C  , 
P275  , 
P2CC  , 
F22S, 
R25C  , 
R275, 
R4CC  , 
R*2E  , 
ThKCF 
HEIGH 
•7ENF 
LECF* 


f*FS    2 


CO.PT 
50,  ?T 
C  D ,  P  T 
25, PT 
50,  ?T 
75, PT 
CO,PT 
25, PT 
50, PT 
75, PT 

no,?T 

25, ?T 

) 

) 

ATURE 
2  ,6.  , 

>    I  1  o     t 

VMEMT 
-425 


S2,*l ) 
S3, +1) 

S4, *1  > 
S5,+l) 
S6, +1  ) 
S7,  +  l  ) 

rs ,+ :  i 

-S9,*1  1 

"SID  ,+1  ) 

"111, +]) 

"S12  ,+1) 

S13,+l> 

CS«  ,13) 
.3  ) 
.02) 

GUT     'LIMES'     FCR     250-425     AMD     VIC! 
CHG    LEGENO    FPGf    3    TO    4    ANO    8LR5C 


VFPSA- 
2.4    TC 


WWWWWWW WWhkWWW 

SSAG  MAL-10.2riG-.">.5  2?NN$'  ,120,2.1  ,.6) 

LFEC(2o?,o5,2o6,.A,o32) 

ICll  ,1  ) 

CFL(0  ) 

NEPl 

1>,F2C.5,1*,F20.12) 

IX, 13  1 

1X,3F12.5  ) 
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/T 


STR.i  IN     -iTr    v; 

*(  ICC)  ,5(  1 00  )  r  320  (  15)  ,S?.2C(151  r S1C0<15)  ,  SRI  ""Oil  5) 
S15CC15) fSR15C(15) rS200(15),L2GPAK(500) 


200 

C 

C 


C 
3 

C 
C 

A 

c 
c 

5 


2CC( 15)  ,3225(15)  ,SR225(  15)  ,S2  50(15)  ,3R2  50 (15) 
S  275  (151  ,£B27  5(15  )  ,£2r,r,(15),SR3  00(15)  ,S325(  15) 
SP2  25 (15)  ,33  50(15  )  ,SR3  50<  15)  ,53  75 (15)  ,SR?75(15 ) 
SAC  C  (15)  ,  SR400(15)  ,3425(15), SRA  25  (15), CI  100  I 
JtC»E»F,K,LtM,N»PiC 

PTS1  .PTSZ.PT33  ,PTS4,FTS5  ,PT S6  ,  FTS7 , PTS3  ,?TS9 

F7S1C  ,?TS11,PTS12,PTSI2 


FLCT3 

+  *?*■*   ■  Mt  * 

cimpnsicn 
cipensicn 
cimensicn 
dimension 
cimensicn 
cipens  icn 
integer  i 

INTEGER 

INTEGER 

PTS1=5 

PTS2=6 

F7S3=7 

PTS4=7 

PTS5=7 

PTS6=5 

P7S7=4 

P7S9=3 

1=0 

C=0 

E=0 

F=0 

J=0 

K=0 

L=0 

f=0 

N=0 

CONTINUE 

1  =  1  +  1 

UP ITE (6.20OC  )  I 

PEAO(  S7 ,*,FNC  =  1CC  )i (I)  ,8(1 )  ,  C(I) 

WRITE  (6,3000  )M  I  ),e  (I)  tC(I  ) 

IF(C(  I)  .EQ.25.  )GC    TC    1 

IF(C(   I)  .EQ.5C.  )GC    TC   2 

IF(C(  I) .EQ.75.JGC    TC   3 

IF(C(  I  )  .EQ.lCCa  )GC    Tn    4 

IF(C(  I ) .EC.15C.  ICC    TO    5 

IF(C(  I  )  .EC.2CC.  )C-C    TO    6 

IF(C(  I)  .E0.3CC.  >GC    TO    7 

IF(C(  I )oE0.35C.  )GC    TO    3 

CCNTINUE 

J=J  +  1 

S20( j )=e<  i) 

SR2rM  J)=<5(I  ) 

WRIT? (6  ,100C  1S2C  (J  )  ,SR20  (J  )  ,E(I  ) 

WRITE (6  ,2C0C  )  J 

GC    th     2C: 

CCNTINUE 

C=0  +  1 

WPITE(6  ,2000  )C 

siooi  o)  =e(  i )  * 

SP10)  (0  )=A(  I  ) 

WRIT" (6,1000  )S10C(C  ), SRI  00(D)  ,8( I) 

GO    T0    2CC 

CCNTINUE 

E=E  +  1 

S150( E)  =e( I  I 

SR150 ( E  )=A(  I  ) 

WRITE (6  ,1000  >S15C(E),SP150( E)  ,3( I) 

WRITC (6  ,2000  )  E 

GC    TO    2CC 

CCNTINUE 

F=F  +  1 

WRITE  (6  ,2000  IF 

SZCOI  F)=P(I  ) 

SP200  (  F  )=A(  I  ) 

WRITE (6 ,1000 )S20C(F  ),SR200(  F)  ,B(  I) 

GO    TO    2CC 

CCNTINUE 

S225(  K)=e(  I  ) 
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c 
c 

6 
C 

c 

7 
C 

c 

3 

C 

c 

ICO 


100 
200 
30C 


SS225  (K  )=M  ! 
WPIT" (6  ,1000 

writ-  (6  ,200 r: 

GC    TO    2CC 
CCNTINUE 
L  =  L  +  1 

WFIT  =  (6  ,200n 
S2501 L)=e( I  ) 
SP25G  (I  )=A(  I 
WRIT^  (6  ,1000 
GC  TT  2CC 
CCNTINUE 
P=M+1 

S275(M)=e<  I  ) 
SP275  (M)=M  I 
WRIT^f  6  ,  100C 
WRITE(6  ,2000 
GC  TD  2CC 
CCNTINUE 

WRITE (6  ,2C0C 
S2J0<  N)=8< I  ) 
SP300  (N  )=A(  I 
WRITP  (6.130C 
GC    TO    2CC 
CCNTINUE 
CALL    CO^PP.S 
BLCVUPf 
SMCCTH 
PSN7H 
.     FAGEdl 
MAXLIN=LINES 
CALL    LINESl ■ 
LINES!  ' 
LINES!  ' 
LINES!  ' 
LINES!  • 
LINESl  • 
L^ESI  ' 
LINES!  ' 
MI>ALF( 
FU7LRA 
ShCCHR ( 
THKCPV ( 
HE IGHT( 
XUtPcA  ' 
YNAM^l ' 
AREA2D( 
h-EACIN! 

hEAcrn 

YLCGUf 
THKFRNM 

FPANP 
CUP\/E(  S 
CURVE (S 
CUFVF!  S 
CUPVFt  S 
CUFVE13 
C'JRVF.tS 
CUPVP( 3 
CUFVC( G 
RE  SET {  . 

3CCJT(i 

VVL2G.-J  ( 
LECENC! 
3LFEC15 
WwWxH  *  W  »  ►  «  w  * 
CALL  MESSAG! 
CALL       eLF^ci 

WWWWWWWWWnMk 

CALL  GRICd, 
CALL  ENCFLfO 
CALL  OCNFPL 
FCPMATf IX, fl 
FC^IATt  IX,  12 
FCRMATt 1>,3F 
STOP 
ENO 


) 

)  S225(K 

)  K 


)  ,S?2I5  (K  I  ,3<  !) 


)  S25C!L)  ,oP250(L)  ,B(  I) 


) 

)  S2  7 


IN 


:(f  )  ,SP275(f  )  ,E(I). 


CALL 
CALL 
CALL 
CALL 


CALL 

CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


) 

)  S2CCIN)  r3R300(N  )  ,8  ( I ) 


.£5 


6    e  ) 
7  (LcGPAC  ,500  ,20  ) 
2  51'  ,L EC-PA K,  1) 
5CJ', LEGPAK, 2) 
75*'  .LEGPAK,  2) 
ICC  J'  ,L?GPAK,4) 
15Ci'  ,LcGPAK,5  ) 
2CC  I  ', LEGPAK ,6) 
3C0  £•  .LEGP^,?  ) 
35C$  '  , LEGPAK  ,3  ) 
1  INS7RU  '  ) 


) 


9C.  ,1,.C02, 1 ) 

»C2 

.2  ) 

!  /  T     K  (  E 

STRAIN 

e.,6e) 
i'  ,i 

1 STPAIN 
C14  ,o0C 
.C3  ) 


F.5 )-lS« , ICO) 

PATE    S(EH.SJ-1$«  ,100 

CO, .5, 2) 

RAT=   VS     1/1%  >, 100, 1.5,2 ) 
C2..0C01  ,1.8) 


P10C 
P150 

p  2c: 

R223 

R2;: 

F275 
p  •""■ 
7HKC 
FEIG 
'  S  T  R 
LEGF 

0  ;  ,  i 
-vtt 

•  AL- 
4.2  , 

*  V  y  » 

1  ) 
) 


c  ?n 

~,S1 
,S1 

,S2 

,S2 
,S2 
,S2 

<  S3 

FT» 
P  -  «r 

akT 

°^, 

V  WW 

1C. 
3.4 
www 


,PT 

:o, 

30, 

c:, 

25, 
50 1 
7  5, 

) 
) 
MP 
f  ,5 

-o  » 

•>  w 
2*M 
,2. 
»« 


SI  ,-1  ) 
PTS2,-1) 

PTS3  ,-1  ) 
PTS4.-1) 
PTS5,-1 ) 
?TS6,-1 ) 
PTS7.-1 ) 
PTS3,-i  ) 


J  •  ,10  ) 

2.2, .02  ) 

G-0.5  2  35;N$'  , ICC, 4. 5, 5. 5) 
o  ,  o-+,  .  C2  ) 


,  1X.F20. 12) 
5) 
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2C0 

c 
c 


c 

c 

2 

c 
c 

c 
c 

c 
c 

5 


SR2CC(  15)  ,3225(15)  ,SR225(  15)  ,S250( 15)  ,3^2  50 (15) 
S27  5  (15)  ,SR275  (15  >  ,3300(15  ),  S3  300 <15>,S325(15> 
S3  2 25 (13)  , S3  50(15)  ,SR2  51( 15)  ,33 75 ( 1 5  )  , 3R3 75 ( 15  > 
S40C  (15)  ,  SR4-00  (15  )  ,3425(15  )  ,  SR425  i 15  )  ,C  (  100  ) 
J,C  ,  E,  F,K  ,L»M  ,N,P  ,C 

FTS1  ,  FT  S  2,  P7  S3  ,PTS4,P  7  35  ,PT!6,  FT  3  7,  PT  S3  ,?TS  9 

FTS10.PTS11  ,?TS12,PTS13 


FLCT3     S    EICNG    \T    TE>P=3  iT'JRE . 

OI.^MSICN    4  (ICG)  ,c(IOO  )  r  320  (  15  ),SR2  0<  15),S100(15),3RlC^(i 

ClffcNSICN    31 5 C (15)  ,  SRI  50 (15  I  ,<200(15J 

CIMENSIC.N    ' 

CI  PENS  I CN 

CIMENSICN 

QI*ENSICN 

INTEGER    I 

INTEGER 

INTEGER 

PTS1=6 

PTS2=3 

FTS3=13 

PTS4-6 

PTS5=3 

PTS6=13 

PTS7=6 

PTS8=3 

PTS<5=13 

PTS10=7 

PTS11=3 

PTS12=3 

PTS13=3 

1=0 

D=0 

E=0 

F=0 

J=0 

K=0 

L  =  0 

P=0 

N=0 

P=0 

C=0 

CCNTINUE 

1=1+1 

WFIT=  (6  ,2000  )  I 

REAOl  96t*tENC  =  lCC  )  .A-  (I) 

WRITE!  6  ,2000  U(  I  )  ,E  (I) 

IF(B(  I)  .EG..12<=  >GC    70 

IF(B(  Il.EQ.o  27E1GC    TH 

IF(B(  I)  .ECoo556  )GC 

IF(B(  I) .EQ.1.3=  )GC 

IF(9(  I )  .EQ.2.7E  )GC 

IF(3( I  ).EC.3o56  )GC 

IF(B(  I) .EQ. 12. S1GC 

IF(B(  I l.EQ.27.8  )GC 

IF(3(  I ) .EQ.55.6  )GC 

IF(9<  I)  .EQ. 12=.  )G0 

CCNTINUE 

J  =  J  +  1 

S20(J  )  =  MI  ) 

SR20( J) =C (I ) 

WRITE (£,100C  )S20(J)  ,SR20(J)  ,E(I ) 

WRITE (6  ,2000  )  J 

GC    TO    ?  CC 

CCNTINUE 

C  =  0+1 

WR IT=( 6,  200C  )C 

S100( C  )=4( I  ) 

SP100 (0  )=C(  I  ) 

WRITE (6,100  0  )S1CC(C  )  ,5R1C0(D  )  ,B( I) 

GC    m    2CC 

CCNTINUE 

E  =  E  +  1 

S150(  S)  -HI) 

SP150(E  )=C(  I  ) 

WRITE (A,  1000  )S15C(E),SR150( =)  ,8(  I) 

WRITE(6  ,2000  )E 

gc  ra  zir 

CCNTINUE 

F  =  e+I 

WRITE( 6.200C  )F 

S2001  F  )  =  M  I  ) 

SR200 (F  )=C(  I  ) 

WRIT- (6.100C  )S2CC(F)  ,SR2C0(F  )  ,B( I) 

GC    TO    2CC 

CONTINUE 

K=K-t-l 

S225(  K)  =MI  ) 

SR225IK  )=C(  I  ) 

WRITE (6, 1000  )S225(K  ),SR2  25(K)  ,B(  I) 

WRITE (6  ,2000  )  K 

GC    TO    2CC 


70 
70 
70 
70 
TO 

"TO 

TC 

in 


,8  (I  )  ,C(I) 
,C  (I  ) 

1 

i 

3 
<* 

c 

6 

7 
3 
q 

10 
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6 
C 

C 

7 

C 
C 

8 

C 

C 
9 

C 

C 
10 

c 

c 

ICO 


1C0C 
200C 
300C 


CCNTINU 
L  =  L  +  1 
WR  IT=(  h 
S250( L) 
£R250(L 
WRITI  (6 
GC  TO  2 
CCNTINU 

£275( M) 

SR275 (M 

WRITE (6 

WRITE (6 

GC    TO    2 

CCNTINU 

N=N  +  1 

WRITc(6 

S200( N  I 

SR310  (N 

WRITE  (6 

GC    TO    2 

CCNTINU 

P  =  P+1 

WRIT"  (6 

S225< P) 

SP325(P 

WRITE  (6 

GC    TQ    2 

CCNTINU 

C  =  Q  +  1 

WP!TE(6 

S350(Q) 

£P350  (Q 

WRITE (6 

CC    tj     2 

CCNTINU 

CALL    CO 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

wwwwwww 

CALL  ME 

CALL  RE 

CALL  "E 

CALL  3L 

wwwwwww 

CALL  ME 
CALL  6 
WWWWWWW 
CALL  CU 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


,;ooo  )i 

=  4  (  I  ) 

)=C(  I  ) 

,1000 )£25C(LJ,SR250(L)  ,e( I) 

CC 


=  A(I  ) 

I  =C (  I  ) 

,1000  )£275(P 

,2000  )P 

CC 

E 

,2000  )f* 

=  A(  I  ) 

)=C(  I  ) 

»1000 >£3CC(N 

CC 


,2000  )F 

=  4(1) 

l=C(I  ) 

,100C  )£225(P 

CO 

E 


),SR275  (M  ),fi(  I) 


),SR3C0 (N  ),8(  I) 


),SR325(P  )  ,8(1) 


CU 
CU 
CU 
CU 
CU 
CU 
CU 

c 


SC.  ,1,.C02,1  ) 

.C2  ) 

o2  ) 

TEMFEFA 

?    5LCNG 


'LRE     (EH. 2  )C(EXHX)CJ'  ,100) 
j!TION  i'  ,  ICC) 


CALL 
CALL  RE 
CALL  GF 
CALL  EN 
CALL  CC 
FORMAT! 
FCRMATt 
FCPMATI 
STOP 
ENO 


,2nr>A  )C 

=  A(  I  ) 

)=C(  I  ) 

,100: )£23C(C)  ,SR350(Q)  ,8(1) 

CC 

£fcs 

CV.U°  (  .  f  5  ) 

GEdl.  ,c.3) 

>ALF(  '  INSTIL  '  ) 

TU*A 

CCHR  ( 

KCPV( 

ICHT  ( 

AN-<  • 

APE(  ' 

CCTH 

l>3 

yTh 

EA?D< e.,6.) 

ACIM(  •  1«  , 

ACI'K  • CUCT1L 

AF(Oc  ,3C>  ,45 

KFCm ( „C2  ) 

APE 

SE~( 'HEIGHT* 
WWWriw  W  WW 
££AG( ■ £TR£IN 
ALMQl C.C3  6,- 
ESAGI'  S(EH. 
FEC(o  9  ,2.=  ,2 
. WWWW w wvww^w 
ES"-G(  '  /L-10. 
L  FECI  2- 2, 5.  A 
WWnWWWWW 
FVE (SR2C  ,£20 
FVE(SP1CC,£1 
PVE1SR15C  ,£1 
FVE(SR20C,£2 
PVE( SR22E  ,£2 
PVF(SR250,S2 
FVF( SR275  ,£2 
RVFM  SP2CC  ,£2 
LFVE( SP225.S 
P  VE ( SP25C  ,£3 
SET(  '  THKCPV 
IC(2 ,2  ) 
CPL(O) 
NEPL 

1X,F1C.4,1> 
IX, 13  ) 
1X.3F12.5  ) 


ln0,.5,2) 

ITY    V£    TEMPERATURES'  ,103,1.5, 2) 

c.t :.  ,ioo.  ,700o ) 


) 

RATE    =     S  '  ,101,1  .,2.) 
1, ' ABLT'  ,  'ABUT'  ) 
5)-lS  ',  IOC  ,  'ABUT  '  ,  'ABUT*  ) 
.  ,.  +  ,  .02  ) 

Z*MG-C«52  3£Ni'  ,1CC,2<>5,5.5) 

,2.  t>  ,  .+  ,  .  C2  ) 

,PTS1,-1  ) 

C0,PTS2,-1) 
50,PT£3,-I ) 
C0,PT£4,-1 ) 
25,PTS5,-1 ) 
50,PTS6,-]J 
75,PTS7?-1) 
CCPTS8.-1  ) 
225 ,PTS9,-1 ) 
50.PTS10  ,-D 
) 


>FlQ.4-tLXv  F10.4-) 
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C  PLOTS     '/.     cLCNG     VS     LCG     STCi[N     =i  A  T  E  . 

CIMENSICN     A(i00).g(iC0).S2C(    101  .SfiiCI   IC  I.S10CI  Id  .;C10C(    1C) 

CI  MEN SI  ON     SI  5C(    IO).5B1SO(10).S2CO(IC) 

01  MEN SI  ON  SR200(10).S225(LU)  .  SB22  =  (  10  )  ♦S2  5C(  10  )  .SR25CI  10) 

01  MENS I  ON  S2  75(10).SB27=(10).S300(10).5R300(10).S325(1C> 

DIMENSION  SR225 (  10). 3350(10)  ,  SB35  0<  1C).S275(IC)  .SB 3 75  I  10) 

DIMENSION  S40C(  lO).SfiACC(10).S425(10).SRA2S(lO).C(iaG) 

INTEGER  I.J 

INTEGER     PTS1  .PTS2 . BTS3.PTSA. PTSS.PTS6  .PTS7  ,FT  =  8 .PTS9 

INTEGER     PTSI C  .HT=  I  1  .PTS12.PTS12 

PT  S  1  =  3 

PTS2=3 

PTS3=A 

PTS4=7 

PTS5=7 

PTS6=  10 

PTS7=  10 

PTS8=10 

PTS9=7 

PTS10=J 

PTSI 1=3 

PTSI 2-3 

PTS13=3 

1  =  0 
200  CONTINUE 

1=1*  t 
C  »RITE(b. 2000  )  I 

fiEAO(%.*,£NC  =  ioo)A(  i )  .em.cc  i  > 

*RITE(6.2000)A(  I).6( I)  .  C  (I  ) 

IF(  I  .GT  .3  )G0     TQ     I 
S20(  I  )  =  A  (  I  ) 
SR20( I ) =E ( I It.OOl 
C  »RIT£<6. 1000  )S20<  I  )  . £R20 <  I  ) 

GO     TO    200 

1  CONTINUE 
IFCI.GT.elGC     TC     2 
J=  (-3 

C         »RITE(6.2000)J 
S100( J) = A<  I  ) 

srioo( j  )=e ( i  )*. coi 

C         »«[T£(6,  1000  )S1 00( J  )  .SB  I  C 0 ( J  ) 
GO  TC  2  00 

2  CONTINUE 

IF(  I  .GT.  10 )GC  TC  3 

J=I-6 
C         «RI TE(6 .2000  )  J 

SIS0( J)=A<  I  ) 

SR150I J  I =8(  I  )*. CO  1 
C         «RITE(6.  1000  )  S150( J  )  .SR  1  50 ( J  ) 

GO  TO  200 
2        CONTINUE 
C         CLLLLLL  LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL 

IF(  I  .GT.  17  )GC  TC  A 

J= l-l  0 
C         ««ITE(6 .2000  )  J 

S200( J)  =A(  I  ) 

SR200<  J  )  =8  (  I  )  =  .  CO  I 
C         wR ITE(6.  1000  )S2Q0( J  )  .SB200( J  ) 

GO  TQ  2  00 
«        CONTINUE 

IF( I .GT .2A)GC  TO  5 

J=  l-l 7 

S225(  J J  =  A(  I  ) 

SR225< J  ) =E( I  )-. 001 
C        »«[TE(b. 2000 ) J 
C         »R ITE(6.  1000  )S22S(  J  )  .SR2251 J  ) 

GO  TO  200 
5        CONTINUE 
C         LLLLLLL  LLLLLLLL LLLLLLLLLLL LLLLLLLLLLLLLLLL 

IF!  I  .GT.2A  JGC  TC  6 

J=  1-2* 


c  *«[Ttlo.iCcni  j 

b250  I  J  )  =  A  (  I  ) 

SR2S0<  J  )  =6 (  I  )  - . CC  1 
C  »«ITE(6.  1000|S<i  =  CI  Jl   .SK2;0(J  I 

GO     TO     iOO 
C  CONTINUE 

IF (  I  .GT.4* )GC     TC     7 

J=l-34 

S2  75<  J  J  =  A<  [  ) 

SR275< J  )  =8 (  I  )*. CO  1 
C         '«RlTE(&.iOOOIJ 
C         »P ITEIb  .  1000  )S2 75( J  )  .SK275( J  ) 

GO  TC  200 
7         CONTINUE 
C         tttt«,U.(.(-),tDl.ti.tttttitt.f.ttt£ttf.Ctttt£££.(;i6 

IF( I  .GT.S*  )GC  TC  3 

js [-** 
C         \»R ITE(6.2000  )  J 

S300(  J) =A<  I  ) 

SR300( J  )  =8(  I  )*.  CO  I 
C         »BITE(6.  1000  )S300( J)  ,SK300< J  ) 

GO  TO  20C 
e  CONTINUE 

IF(  I  .GT.61  )GC  TC  <? 

J=l-5* 

S32S ( J) =A(  I  ) 

SP325( J  I  =6<  I  )*. 00  1 
C  »fiITE(6,2000IJ 

C  »RITE(6.  1000  )S325(J)  .SK325(J  ) 

GO     TC    2  00 
<5  CONTINUE 

C  &&&£.£.£-£.£.*.£.£.  t&Ct  fcfc&t  t  ££.£.&£.£.£.£.  CCfcCfc  CtCCCttt  & 

IF( I .GT.64 )GC     TC     10 

J=I-6 I 
C  *R  ITEC6.2000  ) J 

S350( J) =A< I ) 

SRJSO< J  >=6(  I  )*.00 1 
C  wRITE(6.  1000  )SJ50< J )  .SP3E0I J  ) 

GO     TO     200 

10  CONTINUE 

IF ( I .GT .67) GC     TC      11 

j= [-64 

S375 ( J)  =A (  I  ) 

SR37S( J  ) =e(  I  )«.  CO  1 
C  *RITE<6.2000  )  J 

C  *»»  ITE{6.  1000  )S375<  J  )  .SK375U  ) 

GO     TO    20C 

11  CONTINUE 

IF( I .GT. 70 )GC     TC      12 

J=I-67 
C  »BI TE(6  .2000  )  J 

S400( J) =A( I ) 

SR»00< J )=8<  I  )*.  00  I 
C  WRITE (6*  1000  IS4CQ ( J  )  .SBACO  ( J  ) 

GO     TC    200 

12  CONTINUE 

C  *.£.£.&&&<,  £.£.£.&&£.&£.  &&£.*.£.&£.£.£££.£.£.  &r.&  £t  t  fc  6C  t£  t£.  t 

J= 1-70 
C  »R ITE(b.2000  )  J 

S*2S( J) =A (  I  ) 

SR425I J  )=8(  I  )*.  00  1 
C  *RITE(6.  1000  )S<.25(  J  )  ,SK4iS(  J  ) 

GO     TO     20C 
100 

c 
c 


CONT INUE 

CALL 

COMPRS 

CALL 

3LQ»UP< 

.35  ) 

CALL 

swacTt- 

CALL 

QSMTH 

CALL 

PAGEt  1  I 

.  .3.5) 

CALL 

MI XALF< 

•  INSTSLi 

CALL 

FUTLR A 
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CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

c 

CALL 

c 

CALL 

c 

CALL 

c 

CALL 

c 

CALL 

c 

CALL 

c 

CAUL 

c 

CALL 

c 

CALL 

c 

CALL 

c 

CALL 

c 

CALL 

CALL 

CALL 

CALL 

ShOCHCISO,  .1   .  .  0  C  2  .  1   ) 
THKCSVf .0^1 

Htict-n  .2j 

XNAI*E(  "STRAIN     RATE      S  <  i£H  .  5  )  - 

WAKEI'ii     cLCNOA  TT  CNS*  .1  00  ) 

AHEA20I  fc>.  .6-  ) 

HEACIM  •         S».10C..=.2) 

H£ ACINt 'OUCTTL ITY      XE     STRAIN 

XLQGt.OOOl   .2  .  .0  .  .  t  25  -  ) 

THKERI»(   .  03  ) 

FR  A*  = 

CURVE1SR20.  S20.PT SI  .-1) 

CURVE(SR100,SIOQ.PTS2.- 

CURVE(SKlS0.St50.PTS3.- 

CURVEISK200.S200.PTS4,- 

CURVE<SR22  5.S225.PTSS.- 

CU»V£(SK25  0,S25C,PTS6.- 

CURve(SR27S.S2  75.PTS7.- 

CUR\/E(SS300.S300.PTS8.- 

CURve (SR325.S32=.PTS9.- 

CURVc (SC350.S35G.PTS10.- 

CURVE(SR375.S37  5.PTS11.- 

CURVEISR4O0 .S40C.PTS12.- 

CURVE(SK42=.S42E.PTS1J.- 

RESET(  •  THKCRV  ) 

RESET!  «l-ei  GHT'  ) 


I  1 


I  CO  ) 


KATEt'  .10C.1.S 


CALL  MESSAGI   •  TEMPERATURE     =     *  «  .  A  00  .  A  .  5  .  3  -  ) 

CALL  INTNO  (425.   'ABUT  •  .  •  A6LT*   ) 

CALL  MeSSAGl   •      (  EH. 3)  C(  EXHX  )CS*  .  100.  •  ABUT'  .  •  ABUT  •  ) 

CALL  BLREC(4  .3.  2.<3.2  .7..4..02  ) 


1000 
200C 
300C 


CALL 
CALL 


M£SSAG(  •  Al_-  10.2  JMG-0.52XMNJ'  .100.3. .5.5) 
dU  R  EC  t  2. a. 5. 4. 2. 6.. 4.. .02) 


CALL  GRICI 1.11 

CALL  ENOPLIO ) 

CALL     OONEPL 

FORMAT! 1X.F20.S.1X.F20.12) 

FORMAT)   IX,  13) 

FORMAT!   I  *  .3F12.5 ) 

STOP 

END 
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C  TRUE     STRESS     \Z     TFLE    rT?.»IV     *1     T=20C 

C  THI"     FFCGRAv     COPU^S     TFUr     !TP  =  S3     ANC    STRAIN     cPOM     INPUT    rILES 

C  ENGINEERING     5  IP  535     AND     'T^iif,     AND     ~H  =  N     PLOTS    TRUE 

C  STRESS     AGAINST     TRUE    STRAIN. 

EXTERNAL    3LCFE 

PEAL     Al  (10)  ,A2(  1C)  ,A3(  10  ),81  (10  )  ,82  (1G  )  ,  33(  13  ) 

PEAL    S1110)  ,  S2UC)  ,S3(  10  )  ,E1  (10)  ,c2  UC  )  ,£3(10  ) 

REAL    CC,E,S,OG,TC,TD,L5GPAK<500) 

INTEGER     I,PTSlfPTS2 tPTS3 

1=0 
WRITE! 6,5  ) 
10  CCNTINUE 

I=H-1 

REA01  21  ,*,EN0  =  20  IA1  (I)  ,  81(1  ) 

S1(I)=A1  (I)*  (  1  4BK  I  )  ) 

E1(I)=ALCG(81(  I)-»l  ) 
C  ADJUSTMENT    rCP     INSTFON    AND    ELASTIC     STRAIN    ***** 

C=290. 

O.015 

S=S1(I ) 

E»ei(  i) 

CALL    SLCF5<C,C,c,S,CBG) 

El(  I)=CHG 
C  ***** 

WRITE  (6,1)A1  (  I)  ,SI(  I),  81  (I  )  ,  El(  I) 

GC    TT    1C 
20  CCNTINUE 

FTS1=I-1 
C  11111111111111111 111111111 

1=0 
WRITE! 6,5) 
30  CCNTINUE 

I  =  H-1 

RFJAOf 22  ,*,ENC=40  )A2 (I)  ,82(1) 

S2(U  =A2(I)i(  1  -t82(  I  )  ) 

E2(I ) =ALCG( 82  (  I)+l  ) 
C  ADJUSTMENT    PCP     INSTFCN    AND    ELASTIC    STRAIN    ^»*»* 

C  =  387,, 

C=.13 

S  =  S2(  I  ) 

E  =  <=2(  I  ) 

CALL    SLCPE(C  ,C  ,£  ,S,CHG) 

E2( I) =ChG 

WRITE (6,1) A2(  I)  ,S2(  I), 3 2  II  )  ,E2(I) 
GG    Tl    3C 
40  CONTINUE 

PTS2=I-1 
C  22222222222222222222222222 

IxO 

WRIT-( 6,5) 
5C  CCNTINUE 

1  =  1  +  1 

REAO(  22,*,ENC=6S)A2(I),82(I) 

S3  (I  )  =A2  (IP-  (  !  <*2  (  I  )  ) 

E2(U  =ALCG(  83(11+1) 
C  ACJUST^ENT     =  CF     INSTFCN     4N0     ELASTIC     STPAIN    ***"** 

C=368. 

C=.15 

S  =  S3(  I  ) 

E  =  C3(  I  ) 

CALL    SLCF31C  ,C  ,S,S,CHG) 

E2(I ) =ChC 
q  ***#:* 

WRITE  (6  ,1)  A3(  I  )  ,S3(  I  ),83  (I  )  ,  32(1  ) 
GC    TT     5C 
60  CCNTINUE 

FTS3=I-1 
C  222  233  3  2"  "23  *.-*  32  2  22  2  333  3  3  333  2  22 

CALL    CCMFFS 
CALL    3QLY2 


84 


CALL  3L0V»LP(  . 

CALL  PAGE  (11. 
CALL  VIXj!LF( 
MAXLI N=L  INS; 
CALL  LINES ( ' 
CALL  LINFS1 • 
CALL  LINES) ' 
CALL  PYLEGNI 
CALL  FUTLRA 
CALL  SHCCbR( 
CALL  TH«rpv( 
CALL  HEIGHT! 

CALL  XNAHEt 'T 


1 

2 
3 

C4 
5 


11 
21 


CALL  YNAKEI 'T 

CALL  AREA20< 9 

CALL  HEACINI 

CALL  HEACIMt ' 

CALL  GRAP(0. , 

CALL     THKFPMf 

CALL     FPaf"! 

♦■+  +  -►+++  +    CUPVES    G 

CALL    CURVE(=1 

CALL  CURVE(E2 

CALL  CURV6(E3 

CALL    RESET) ' 

CALL    PESET( ' 

CALL    LEGE.'IGl 

CALL    3LRCC(5 

CALL  MESSAGt 

CALL  INTNT(2 

CALL  MESS AG ( 

CALL  9LPEC11 

imwB*  *mn  ***» 

CALL  MESSAGI 
CALL       BLFECI 

*****  kniiloifi. 
CALL  MESS AG  I 
CALL  MESSAG( 
CALL     ELFECd 

■»m  m  *  H  ******* 

CALL    GRTC(2, 2 
CALL    ENOFKO  ) 
CALL    DCNEPL 
FORuAT(  1*.,2F 
FCRMATt IX ,4F 
FCPMAT(  lx,4r 
FCRMAT  (IX,  I 
FCPM4T(1X,/,A. 
S'TRUE    STRAIN' 
STOP 
ENO 

SUBROUTINE    F 
SUBROUTINE    S 
PEAL     CCE.S 
TC=CM  l.+O) 
TC=AL0G (C+lo 
CHG=E-S*TD/T 
IF(CHG.LE.O. 
GC    T3    21 
CHG=Oo 
CCNTTNUE 
RETURN 
END 


6  \  >  . 

»  c  •  5  ) 

•  ING7FU  '  ) 

T  (LUGP^K  ,5?0  ,20  ) 

5.6X10  (  EH.  c  >-« +  $  '  ,  L  =  G?<\K  ,1) 

E.6X1CM  EH.  5)-3£«  ,LEG?AK,2) 

5.6>1C(EH.  5  )-■?$•  ,L2GPAK  ,3) 

•STRAIN    RATE?    L/Si' ,16) 

SC.,1,.C02, 1 ) 

oC2  ) 

.2  ) 

PUE    STRAINS'  .100  ) 

FLE    STRESS*  (  )MPA  (  )  IS', 100  ) 

.06.0) 

'       i', ICO, .5, 2! 

STRESS    \S    STRAINS1  ,100  ,  1.5,2) 

.CC2,.C1,0.  ,  100.  ,650.) 

.C2  ) 


'  HE 
SI, 
52, 

S3, 
>KC 
•EIG 

EG? 

1  ,2 
»  v  - 

TEP 

,'4 

(  E 
£  ,2 

*** 

«L- 

:.  -  i 

■  *r* 

ENC 
INC 

2  .. 

r* 


FE  + 
FTS 
FTS 
FTS 
P  V  ' 

*K  , 

o7, 

F=F 
?LT 
h.3 
.4  , 

»«» 
1 

2oA 

*** 

CA 

ICA 

4A, 


+  +-*■  +  +  -♦+-,■  +  +  ++++ 

1,*1) 

2,-t-l) 

2,+l  ) 

) 
) 

2,5.4,3.  ) 
2.5 ,1.5 ,.  C2) 

UW 

ATURE    =     $•  ,100, 2. ,2. 5  ) 

', ' ABLT'  ) 

101 EXI-X )C J', 130,   'ABUT' , ' A8UT »  ) 

2. 7, .4, .02) 

»W 

22MG-0.  5  2  11^1$'  ,100,2.5,3.5  ) 

,2o  6,o4,.C-) 

7A    °CINTS     !•  ,100  ,1.2, .5) 

T=    FRACTURES'  ,10 C , ' ABUT'  , ' A3UT' ) 

^o,oZA,o02  ) 


2. 5,  IX ,2F12.7) 

2.5) 

2.5) 


) 

I 
i 

1 

2  ) 

X.'ENG    STTlESS'  ,2X  ,'TRU5    ST'ESS  '  ,  2X  ,  '  EMG    STRAl  M  •  ,  2X  . 

,  /  ) 

CP    CCRREC7ING    INS1RCN       AND    ELASTIC    STRAIN    ***** 
LCP:  (C  ,:,",S,CHG  ) 
,ChG,TC  ,70 

) 

C 

)GC    7C    11 
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C  TRU;     STP'SS     ^S    TOU?    STRAIN    JT    T=1QCC  =  C 

C  THI3     SFCGSl"     CCVPU15S     73U'2     iTPESS     iNC     STRAIN     =*G-1     INPUT     CILFS     CF 

C  =NGIN"EFING     S7FESS     if  J  C     CTRAIh,     AND     THEN     PLCTS    TSUE 

C  STRZSS     AGAINST     TRIE    STRAIN. 

E>T5RNAL     SLOFE 

REAL     Al<m,A2(iO,A3<l3),8l(I0)  ,3  2(10  ,82(10 

REAL    SI  (10)  ,S2(1C>  ,  S31 10  ),E1  (10  ),c2 (10  >,53( 10) 

REAL    C  ,C,c,S  ,CHG  ,TC  ,TD,L2GPAK (500) 

INTEGER     I,?TS1,P7S2  ,PTS3 

1=0 
kPITEl 6, 5) 
10  CCNTINUE 

1  =  1  +  1 

READ( 81  ,*,EN0  =  20  )A1 (I)  ,31(1) 

SKI)  =  A1  (I)*(l-tei(  I  )  ) 

Eld  )=ALCG<81  (  I  )  +1  ) 
C  ACJUSTWEf>T    FCF     IHSTPON     AND    ELASTIC    STRAIN    ***** 

C=350. 

0  =  ,1 
S=S1(  I) 
E  =  E1(  I  ) 

CALL    SLCFE(C,C  ,E,S,CHG) 

El  (I)  =ChC- 
C  ****« 

WRIT=(6  ,1)A1  ( I ) ,S1( I), 31  (I )  ,  Fl(  I) 

GO    Tl    1C 
20  CCNTINUE 

PTS1=I-1 

1=0 
WRITE( 6,5 ) 
30  CCNTINUE 

1  =  1*1 

REAO( 31f*,ENC»40  )A2 (I) , 82(1 ) 
S2(I ) =A2(I>*< 1 <e2( I ) ) 
E2(I ) =ALCG(92<  I)+l  ) 
C  ACJUSTMENT    FCF     INSTFON    ANO     ELASTIC     STFAIN    ***** 

C  =  124-. 
0=.O33 
S  =  S2(  I  ) 
E  =  E2(  I) 

CALL    3LCFE(C  ,C  ,E,S, CHG) 
E2( I ) =ChG 

WP  IT>;(6,  2 )  A2  (  I)  ,S2(  I),  82  (I  ),  E2(  I  ) 
GC  Tl     3C 
^C      CONTINUE 
PTS2=I-1 
1=0 
WRITE( 6,5  ) 
5C      CCNTINUE 
1  =  1  +  1 
REAO( 30  ,*»SNC*€0  )A2  (I)  ,83( I  ) 

S3  ( i )  *  a  2  ( i )  *  ( n  e  3  ( I  n 

E3(I) =ALCC(32  (  !  Ml  ) 
C  ACJUST^ENT     FCF     INSTFON     ANO    ELASTIC     STRAIN    **»*« 

C=436. 
C  =  .13 
S  =  S3(  I  ) 
E=<=3(  I  ) 

CALL    SLCFE(C  ,C  ,E,S,CHG) 
52(1 ) =CHG 
C  ***»•« 

WRITE (6  ,2)  A3  (  I  )  ,S2 (  I  ), 83  (I  )  ,  E2(  I  ) 
GC    T3     5C 
60  CCNTINUE 

PTS3=I-1 
C  WW*WWWWWW*W     ?????    CIMSNSION     LEGPAK    2S4244 

CALL    CCMFFS 
CALL    PCL>2 
CALL    3L0WLPI. 85) 
CALL    PAGE  (11.  ,€.5 ) 


86 


CALL     ,'IXALF('INS7PL') 

PAXLI  N* LIN; ST  (LEGFAX  ,5  13  ,20  ) 

CALL     LINES  (  '  5  .6X10  (  cH.  5  l-4i'  ,L-GPM<  ,  1) 

CALL    LINS^f  '  5.6X1C(  ZH. 5 I-3S'  ,L2GPAK  ,2) 

CALL     LINES (  '  5.6X10 ( EH.  5  1-2S'  ,L£GPM<  ,2) 

CALL     fYLEGN (  • STSA  IN    RATES    l/Sl',16) 

CALL    FUILRA 

CALL    ShCCbR ( =C.  ,1,.C02,1  I 

CALL    THKCPV(.C2) 

CALL    HEIGHT!. 2) 
CALL    XNAMFCTFLE     STR  A  IN  $  •  ,  100  ) 
CALL    YNAfF<  'TPLE     STR ESS U  ) MP i  (  )  > S • , LOO  ) 
CALL    AREA2D(  S.C6.C) 

CALL    HEACIN (  '        $« ,100, .5,2 ) 
CALL    HEACINt • STRESS    \S    STRAIN S •  ,130 , 1.5,2) 
CALL    GRAFfO. , .C5,.3,C.,13C.  ,6CC. > 

CALL    THKFRMf ,C3 ) 

CALL     FRAPE 
CALL    CURV6(Sl,SliPTSl,*l) 
CALL    CUR\»E(I=2  ,S2,FTS2,*1  ) 
CALL    CUSVE(33  ,S2,FTS2,*1) 

CALL    RFSETt  •  Tl-KCFV  ) 

CALL    RESET(  '  (-EIGHT'  ) 

CALL    LEGENO  (LEC-PAK  ,3,5.4,3.  ) 

CALL    BLFEC15. 1,2.7, 2.5, 1.5, «C2J 

C  *W  »nta  V-  »  k.  „»,,,,  kk  .  ,» 

CALL    "ESSAGf  'TEMPERATURE    =     t  ■  ,  100,2 . ,2. 5  ) 

CALL     INTNGdCC,  '  AeUT',  •  ABUT'  ) 

CALL    MESSAGf'     (  EJ-.  3  )0(  EXJ-X  )C  I »  ,100,  •  ABUT'  ,  •  ABUT'  ) 

CALL     3LFEC(1. £,2.4,2.7, .4, .32  I 

C  .».-«».».  «,.  *k  y.  »,  j.  k.  n  ,* 

CALL    MESSAGJ  •  AL- 10.  2  3MG-1. 523fN$»,lCC,2.5,3.5) 
CALL       ELFE;C{2.3  ,3.4, 2.6i. 4,. C2) 

C  .n..ii..M«..m,,,,»H 

CALL    MESSAGf'ENC    CAM    POINTS     CO    NOT     $  '  ,  100,  1.  2,  .  5  ) 
CALL    NE£S4G(  •  INCICAT'E    FR iCTU F Et ', 100 ,' A8UT ',' ABUT ■ ) 
CALL     3LREC(I.1».44,5.,.24,.02) 

C  »MMIH,»»«««,» 

CALL    GRIC(2,2 ) 
CALL    ENOFLIO ) 
CALL    OCNFFL 

1  FORMAT!  1X.2F12.5  ,1X,2F12.7) 

2  F0PM4T(lX,4F!2.f ) 

3  FCR.^ATl  1>,4F12.5  ) 
C4  FORMAT ( IX, 12 ) 

5  FCRM4T(lX,/,tx,'ENG    STR 2 S V  , 2X  , ' TRUE    STPCSS' , 2X, » EMG    STRAIN', 2X 

3 'TRUE    STPaiN'  ,/) 

STOP 

END 
C  SUBROUTINE    FC?    CCPRCCTING    INSTRCN       ANC    'LASTIC    STRAIN    *"<*** 

SUBRGUTIN-i    SLCPE  (C,C,.:-,G,CHG  ) 

REAL    C  ,C  ,  =  ,S  ,CFG  ,TC  ,T3 

TOC*(1.+0) 

TC  =  ALOG (C+l.  ) 

CHG=t-S:»TD/TC 

IF(CHG.  LE.  3.  JGC    TO     11 

GC    TO    21 
11  CHG=0. 

21  CCNTINUE 

RETURN 

ENO 
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C  TRUC    STP'iS"     ^S    tql  -    S7°«IN    /IT    T=15CC 

C  "HIS     RPCGRA/*     COFLI"     "UE     STRESS     ANC    STRAIN     POO.M     in  PUT     =  I L  -  S 

C  ENGINEERING     STRESS    AUG    'Tcj^,     iM0    THEN    PLJTS    TRUE 

C  STRESS     AGUNST    TPUF    ST"4IN. 

Q  H  »*»?«  *»;:.*>«  *.»**  ******  **-!«**  S  ***:**.*  t*«>)S* 

EXTERNAL    SLOPE 

REAL    Al  (  10)  ,  *2CC)  ,A3(  10  1,31  CO)  ,32  (10  )  ,e3(  13  ) 

REAL    51  (  Ul  ,S2  (1C)  ,  S3(  1 0 ) ,  £ 1  CO  )  ,E  2  ( 10  )  ,  E3  (  13  ) 

REAL     14(101  ,  e«CC)  ,SA(  10  I,  EM  10  )  ,L5GPAK(  ?00  ) 

REAL    C  ,C  ,H,  S  ,OG  ,TC  ,TD 

INTEGER     I,PTS1,F1S2  ,PTS3  ,?T34 

1=0 
WRITEf  6.5) 
10  CONTINUE 

1  =  1  +  1 

REAO(  80,*,£NC  =  2C)A1  (I)  ,811  I  ) 

SKI)  =A1(I  )•  (1461(1)) 

E1(I)=ALCG(B1  (I)  +  l) 
C       ADJUSTMENT  FOP  INSTFON  AND  ELASTIC  STRAIN  ***** 

C=213. 

C  =  .13 

S=S1(  I) 

E  =  E1(  I) 

CALL    SLCFEIC  ,C  ,E,S,CHG) 

El(  I)  =C1-G 

U«IT=(6,1)A1(  I)  ,S1(  I), 81  (I)  ,E1(I) 

GC  TO  1C 
20  CONTINUE 

PTS1=  1-1 

1=0 
WRITEt  6,  e.) 
30      CONTINUE 

1=1+1 

PSAO(47,*,SNC*40 )A2(I),B2U) 

S2C  )  =A2  (I  )•■*  (H62U)  J 

E2(I)  =ALCG(  32  (  IM1  ) 
C       ADJUSTMENT  <=CP  INS7F0N  AND  ELASTIC  STRAIN  **»** 

C=255. 

0  =  .l 
S=S2(  I) 
E  =  E2(  I  ) 

CALL  SLCF=(C»CiE,SfCHG) 
E2(I) =CHG 

WftITE(6,2)A2(  I)  ,S2U),32  (I  )  ,E2(I) 
GC    TO    3C 
40  C3NTINLE 

PTS2=I-1 
1=0 
WRITE(6,5) 
50  CONTINUE 

1  =  1  +  1 

REAO(46,*,EN0=60)A3(I) ,82(1) 
S3  (I  )  =A3  (D*(1hE2(  I  )) 
E3(I)=ALCG(  32(I)-»1) 

C  ACJUSTMENT     FCF     INSTFON     AND    ELASTIC     STRAIN    =**^-= 

C=23T. 

C  =  ,l 

S  =  S3(  I) 

E  =  -E3  (  I  ) 

CALL    SLCFEIC  ,0  ,E  ,S,CHG) 

E3C  )  =ChC- 
C  ***** 

WRITE (6,  3)  A3  (  I)  ,S2(  I), 3 3  (I )  ,  E3(  I ) 

GC  T3  5C 
60  CONTINUE 

FTS3=I-1 

1=0 
WRIT5{  6,5  ) 
70  CONTINUE 

1=1  +  1 

RE?.9(32,*,ENC=e'*)A4(I)  ,BMI  ) 
S4(  I  )  =  A4  (  I  )  «  (  1  -tFA(  I  )  ) 
c4(I)=ALCG(84<I)+l) 
C  ADJUSTMENT    FOP     USTFGN     AND     ELASTIC     STRAIN    -"**** 

C=334. 
C=.l 
S  =  S4(  I  ) 
E=«E4<  I  ) 

CALL    SLCFEIC  ,C  ,E,S, CHG) 
E4(I)  =ChG 

WRITE(6,2)A4(I),<4(I),B4(I),EMI) 

GC  x0  7C 
30      CONTINUE 

PTS4=*I-1 
C  WteUwWHWbWWW     3J33?    DIMENSION     LEGPAK     334331 
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call  comprs 

call  pcly3 

call  3lc;lp(.s;i 

CALL    PAGEtJl. ,f.f) 

CALL    MIXLF  (  '  INSTRU  '  ) 

f*AXLIN  =  LINEST(L2GP4K,5  0  0,20) 

CALL     LINES  I '  5.6X131  EH.  5 ) -4  J '  ,LEGPAK  ,1  ) 

CALL    LINES(  *  5.6*  10 (  ?H.  5  ) -3  $  '  ,L2GPAK  ,2) 

CALL    LINES!  *  5.6 >1C( EH.  5  I -2  5*  ,LEG?AK  ,3) 

CALL    LINES (»  1.4X10 ( SH. 5 ) -IS'  .LEGPAK ,4) 

CALL    MYL£GN< 'STRAIN    RATES    L/SS',16) 

CALL     FUTLRA 

CALL    SFCCHR(9C.  ,1,»C^2,1  ) 

CALL     THKCVUC2) 

CALL    HEIGHT(.2) 
CALL    x:NA^E('TPL5    STRAINS  •  ,100  ) 
CALL    YNAPEI'TRLE     STP ESS (  I  ) MP  A  (  )  ) $ » , 1 00 ) 
CALL    ARE^2D(8.C,6.0 ) 

CALL    HPACINt  '       i '  ,100, .5  ,2) 
CALL    HEACINt  » STRESS    \S    STPAI N$ * , 1QH , 1. 5  ,2  J 
CALL    GRAF(0« ,.C5,.2,C.tlQC. »6CC.) 

CALL     THKF°M(.C2) 

CALL     FRAfE 
CALL    CUPVE151  ,Sl,FTSlf+l  ) 
CALL    CUR\(E(E2  ,S2  ,FTS2,*11 
CALL    CURVE(E3  ,S2,FTS2,  +  1 > 
CALL    CUPVE(E4,S4,fTS4,+l ) 

CALL    RESET!  '  THKCFV  ) 

CALL     RESET! • HEIGFTi ) 

CALL     LEGEND  (LEGFM  ,4,5.3,4.5  ) 

CALL    BLPEC15.  ,4.2,2.5,1.5,.C2) 

C  „„»,„„„„,,  KW^rtUk.  V  tMkhn 

CALL  MESSAG(  'TEMPERATURE    =     $  '  ,100 ,2. 1 2. 5 ) 

CALL  INTNCt 15C,  '*BUT',  ' AEUT'  ) 

CALL  MESSAGI  '     (  EI-.3  )0(  EXJ-X  )  C*  '  ,  110 ,  » AEUT  •  , '  ABUT  '  ) 

CALL  3LFEC1  l  o  E  ,2<,4  ,  2a  7  ,  .  4,  .  C  2  ) 

C  ,.«««»»MI«»»l.,W,l'l.»« 

CALL    MESSAGJ  •  AL-  !0.  23MG-C.  52  Sf»N$ '  ,  1  00  ,  1  .7  ,5  .3  I 

CALL       9LRECI  1.5  ,5.2  ,2.  6,.4,.C2) 

C  .►,■.,.*  Ann  UhWrt^ttU  rw«  «  H 

CALL  MESSAGl  'ENO  CAT.5  POINTS  CC  NOT  £ •  ,  100  , 1. 2 , , 5  ) 
CALL  MESSAGJ  '  INDICATE  FR ACTUPES ' ,100 ,' ABUT' ,' ABUT' ) 
CALL  eLFECll.  1  ,.44  ,4„9 , .24, „C2 ) 

C  U«WM  **r  ,„n»  *  ,+ 

CALL  GKIC (2,2 ) 
CALL  ENDFL(O) 
CALL  OCNEFL 

1  FCPMATI  lX,2c12.5,l/,2F12o7) 

2  FORMATt 1X,4F12.5 i 

3  FCRMATI  1X.4FU.5  ) 
C4  FCCM  IT  (IX, 12  ) 

5  FCRMA7(1X,/,4X  ,'ENG     STRS  S3'  ,  2X  , '  TRUE     STRESS ',  2X  ,' =NG    STiAt  N ',  2X  , 

a'TRUS     STRAIN'  ,/) 

STOP 

END 
C  SUBROUTINE    FCP    CCRRECTING    INSTRCN       ANC    ELASTIC    STRAIN    ±**** 

SUBROUTINE    SLCFE  (C,C,F:,S,CHG  ) 

REAL    CfCfSf S  ,ChG,TC,TO 

TC=C':<  l.+O) 

TC  =  ALCG  (Olo  ) 

CHG=E-S*TO/TC 

IF(CHG.LE.O.  )GC    TC     11 

GC    TO    21 
11  CFG=0. 

21  CONTINUE 

RETURN 

END 
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C  TPUf     S7R=3S     ^S     TPL=    STRAIN     tl    T=?OC 

C  THIS     PFCGSA*     COFLT"     T"US    !7RE33    ANC    3TR  UN    PROM    INPUT     cILt" 

C  ENGINEERING     "HRESS     ANO     CT?,AIN,    A,N0     ThSN     PLOTS    TRUE 

C  STRESS     AGAINST    TRUE    STPilN, 

EXTERNAL    SLOPE 

REAL     U (10)  ,42 (1C)  ,43(10  )  ,  A4 (ID  )  ,A5  (13  ),A6(10  ) 

REAL     A7(1C),AE(1C),A9(10),A1C(10> 

PEAL     ei  110)  ,eZ(  K)  ,B2(  10  ),34<  1C  )  ,3  5  (1C  )  ,86(  10  ) 

REAL    37(10)  rae<lC)rB9(10l  tBICdO) 

REAL    Sl(  10)  ,  S2(  K)  ,  <3(  10),  S4  (IC)  ,S5  (  10  )  ,  S  6(  10  ) 

REAL    S7(10)  ,  Se(lC) rS9{ 10 ),31C (10 ) 

REAL    51 (  10)  ,E2(1C),E3(10),E4<10)  ,C5 (10 ) , E6< 10  ) 

REAL    E7(  10)  ,£E(1C) ,£9< 10),E1C(10> 

REAL    C  ,C  ,E,S  ,OG  ,TC,T0,  LEGPAKI500) 

INTEGER    T.PTSl  ,?TS2  ,P'rS3  ,PTS4  ,PTS5  ,  PTS6 

INTEGER     PTS7,FTSe,PTS9,PTS10 

1  =  0 
WRITE( 6,5) 
10  CCNTINUE 

I  =  !  +  i 

REA0(  74,*,3NC=20  )A1  (I)  ,  81(1  ) 

S1(I)=A1  (1)^(1^1(1)1 

El(I)=ALCG(fll <  I)+l  ) 
C  ACJUSTMENT    PGP     INSTFON     ANO    ELASTIC     STRAIN    ***** 

C=A5.1 

C=.0  3  3 

S  =  S1 (  I  ) 

E=E1(  I  ) 

CALL    SLCPE(C  ,C  ,c,S,CHG) 

El(  I)  =ChC- 

WRITE  (6,  DAI  (  I)  ,  Sl(  I),  81  (I  ),£1(D 

GC    TO    IC 
20  CCNTINUE 

PTS1=C-1 
C  11111111111111  1311111 

1=0 
WRITE( 6,5) 
30  CCNTINUE 

1  =  1  +  1 

REA0(  73  ,*,2NC=AC  )A2  (I)  ,32(1) 

S2(I)  =A-2(I)^(  1  -»e2(  I  )  ) 

E2(I)  =<HCG(e2  (  I  Ml  ) 
C  ACJUSTMENT    FCF     INSTFCN    AND    2L4STIC    STRAIN     *=*=•* 

C=10^. 

C  =  .15 

S  =  S2(  I  ) 

E=E2(  I  ) 

CALL    SLCFP(C  ,C  ,£  ,S,CHG) 

E2(  I)=CI-C 

WRIT^ (6,2)A2( I)  ,£2(  I), 82 (I  )  ,£2(1) 

GC  TO  3C 
40      CCNTINUE 

PTS2=  1-1 
C      222222222222222222212 

1=0 
WRITE!  6,5  ) 
50      CCNTINUE 

1  =  1+1 

REAO(  4-5  ,=*,ENC=6C  )A3  (I)  ,33(  I  ) 

S2(  I  )  =A3(  I  )>MltP.2(  I  )  ) 

E3<I)=JUCG<  *2  (  I  Ml  I 
C  ACJUSTMENT    =rp     INSTFC.'l     AND    ELASTIC     STRAIN    ***-** 

C=106. 

C=.l 

S  =  S3(  I) 

E=<r3<  I  ) 

CALL    SLCF=(C,C,E,SrCHG) 

E2( I)=CHG 

« P.  173(6,  2)  A3  (  I  )  ,S3(  I  ),  ,13  (I  )  ,  c2(  I  ) 
GC  TO  rC 
60      CCNTINUE 

FTS3=  1-1 

q  •  •  1  i-5  3  t  1  ~  1  -33  1  1  -  -  -  -  11  -5-33  3  3  1 

"1=0 

WFITP(6,5) 
70      CCNTINUE 

1  =  1+1 

READ(44,*,cNC  =  eC)A4(I),3MI) 

SA(I) =A4(I ):* ( 1 *e«( I ) ) 

EMI)=ALCG(e4  (  I  >+l  ) 
C       ACJUSTMENT  POP  INSTFON  ANO  ELASTIC  STPAIN 

C=113. 

C=.l 

S=S4( D 

E  =  E4(  I) 

CALL    SLCFEtC  ,C,c,S,CHG) 

E4< I)=CHG 
C  ***** 

90 


80 
C 

90 


ICO 
C 

2C0 


300 
C 

400 


500 

C 

c 


WRIT?  (6  ,1)  44  {  I)  ,  £4!  I  )  ,84(1  )  ,  eMI  ) 

GC    "I     7C 

CONTINUE 

FTS4=  1-1 
44444444444444**44 4  444444 444 

1=0 
WRITE! 6,5) 

CCNTINU6 

1  =  1*1 

READ!  43 ,*,5NC  =  irC)A5(I  )  ,  35 (  I  ) 

S5(I  )  =45  (I  >=*  (I  +  E5(  I  )  I 

E5!I)=ALCG<35 (  I  1  +  1  ) 

ACJUSTMENT    FCP     IASTPOM    ANO    ELASTIC    STRAIN    «*«-** 

C=166. 

C  =  .l 

S  =  S5(  I) 

E=E5(  I  ) 

CALL    SLCFEtC  ,C,c,S,CHG) 

E5(I  )=CKC- 

***** 

WRITE (6  ,2)A5( I) ,  S5! I),B5(I  )  , ESI I) 

GC     TQ     qc 

CCNTINUE 

PTS5=I-1 
555  555555  55555  55555  5  555  5  55555 

1  =  0 
WRITE! 6,5) 

CCNTINUE 

1=1  +  1 

REAO( 42  ,*,ENC=3CC  )  *  6 ( I  )  ,  E6 (  I  ) 

S6(I  )=46(I)  *(  1  +  B6<  I  )  ) 

E6(I) =6LCG(36  (  I)  +  l  ) 

ACJUSTMENT    FCF     II^STFCI     ANO    ELASTIC     STRAIN     "***-^ 

C=202o 

C  =  .J3 

S  =  S6(  I  ) 

E  =  F6<  I  ) 

CALL    SLCFEtC, C  ,E,S,CHG) 

E6(  I  )  =ChC- 

****=: 

WRITE (6  ,2)A6(  I  )  ,  S6!  I  ), B6  (I  )  ,  J6( I  ) 
GC  Ta  2CC 
CCNTINUE 
PTS6=l-l 
6  66  6  66  66  66666  6  6  6  6  6  6  6  if  66666666  £666666 
1=0 

WRITE! 6,5) 
CCNTINUE 
[  =  1+1 

PEAD(23,*,ENC=5CC)A7(I)  ,57(1  1 
S7U)  =A7(  I)*  (  1  +6  7  (  !  )  ) 
E7(I)  =4LCG(B-7  (  I)+l  ) 

ACJUGTVENT    FCF     INSTFCM     4N*1    ELAS'IC    STFJIN     ***-*- 
C=257. 
C  =  »15 
S  =  S7(  I  ) 
E  =  E7(  I  ) 

CALL    SLCFEtC  ,C  .E,S,CHG) 
E7(I  )=Ct-G 

WRIT' (6  ,1)A7(  I)  ,S7(  I), 87  (I )  , E7( I) 
GC    TQ    4CC 
CCNTINUE 
PTS7=I-1 
777  777  77  7  77777  777  7  77  77777  7777  7  777777  77 

□IMENSICN    LEGPAK 
CALL    COMPFS 
CALL    SMOCTH 
CALL    P0LY2 
CALL    BLCWLPUeS) 
CALL     PAGEdl.  ,8.5) 
CALL     «IXALF(  '  TNSTRL ' ) 
fAXLlN  =  LINSST(LEGPAI«,500,20 
CALL    LINESI  •  1.4MC(FH.5)-4$ 
LINES!  *  5.6X10 (CH. 5) -4$ 
i.  .4X10! CH. 5 )-35 
5.6X10! EH.5 )-3$ 
1.4X1C ( FH. 5  )-2$ 
5.6X1C! EH.5 )-2$ 
1 .  4  X 10  (  EH.  5  )  -1  $ 


LINES! 

LINES! 

LINES! 

LINES! 

LINES! 

"YLEGN ( 'STRAIN 

FLTL04 


,LEGP\K  ,1 ) 
,LEGP4K  ,2) 
, LEGPAK  ,3  ) 
, LEGPAK  ,4) 
, LEGPAK  ,5  ) 
,LEGF\K  ,61 
, LEGPAK  ,71 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL    St-CCHR!  <;C.,1,.C02 

CALL    THKCCV(„C2) 

CALL    HEIGH7(02> 
CALL    XNA^ECTFLE    STR  A  IN  3  '  ,  100  ) 
CALL    YNAMEl'TFLE    STR ESS (( )MPA ())$», 1 00 ) 
CALL    ARFA20! 9„C,6.C> 

CALL    HEACIN (  •        i'  ,1C0, „  5  ,2  > 
CALL    H  =  ACI*4(  'STRESS     \S    STP4I N 1 '  ,  LOO ,  1  .5  ,2  ) 
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RATE3    L/Si' , 16 ) 


1  ) 


1 

2 

3 

5 


11 
21 


CALL 
CALL 
CALL 

CALL  C 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 
CALL 
CALL 
CALL 
CALL 

WtlMwW 

CALL 
CALL 
CALL 
CALL 

WWWWW 

CALL 

CALL 

WWrtWW 

CALL 

CALL 

CALL 

CALL    G 

CALL    5 

CALL    0 

FHRMA 

FORMA 

FORM 

FCRMAT 

m  • TRU" 
STQO 
END 
SLBR'M 
REAL 
TC=C~ 
TC=AL 
ChG=S 
IF(CH 
GC    TO 
CHG=0 
CCNT7. 
PETUR 
ENO 


RAF 
THK 
FS  A 
UPV 
URV 
U°V 
URV 
UPV 
URV 
UPV 
a=  * 
RES 
LEG 
3LF 

W»* 

MES 

INT 
MES 

<3LF 

«W» 

•IE  5 
3LR 

V.n» 
MC  C 

MES 
9LF 
RIC 
NDF 

cne 

T(  1 
T(  1 
T(l 
ATI 
(IX 

3TF 


FPM  ( 

^c 

E(E1 

5C=2 

EC2 

E(E«+ 

E  (2  5 

E" 


oci  > 


i  •C  i 


1  =.<• 


ET(  • 
ENOl 
FC(  3 

kHnH 

SAG( 
fO(  2 
SAG( 
EC(1 

SAG  ( 

ec  i : 

»«"<■ 

S.\G( 
SAG  I 
ECU 

(2,2 
L(O) 
FL 

>,^F 
X,-+f_ 
X  I'tf 
IX,  I 
t/,4 


,  si 

,S2 

,   -  - 

,<4 


,S6 

427 
TFK 

FFI 

LEG 

o  2  i 

»Wk 
'TE 
CO, 

•  ( 

.£  , 

•  ►  v 

'  £L 

a  J   l 

•  IN 
.1, 


,FTS 
,FTS 
,  FT5 
,FTS 
,F7S 
,FTS 

,rTS 

GJ-T  ' 

f;k  , 

2 .,  7  » 

UUwW 
MFEP 
'A8L 
5F.2 

A. 4  , 

«  <■  Wbi 
.     *» 

0  CA 
CICA 
oC6  , 


2  ,* 


6,-f 

7,+ 

) 

) 

7,3 

<:•  5 

WW 

ATU 

T«, 

)0( 

2.7 

liU 

:?m 

2.6 
WW 
TA 
TS 

Ho? 


1  ) 

1  ) 

1  ) 

I  ) 

1  ) 

1  ) 

1  ) 


•  5  »2>  «  ) 

, 2o5, • C2 ) 

RF    =    £  •  ,100,2. ,4. 5  ) 

•ABUT'  ) 

7XFX )C J' ,100,  'ABUT' ,  'ABUT •  ) 

,.•+,.02) 

G-0.5  2?fN$' , ICO, 2 o 3, 5. 5) 

f  •   4  f  •    \*    4i    ) 

POINTS  CC  NOT  t'  ,100,1.2,.!  ) 
FRACTURES'  ,10  0,' ABUT'  ,'  ABUT' 
,  > _  +  .  • C2  ) 


12.3) 

12.5) 

12.5  ) 

2  ) 

X.'ENG    STR  =  SS»  ,2X,'TRUF     STRE  S  S  •  ,  2X  ,  '  ENG    STRAIN', 2X, 

,/) 


UTINE    SLCFE  (C,C,E,S,CHG  ) 
C,C,E,3,ChG,TC  ,t-i 
(l,+0) 

CG(C+1. ) 
-S*TO/tc 
CLE.:,  )GC    TC    11 
21 

NUE 
N 
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C  TRUE     ^T=-SS     \S    ^l?    CTJUTN     n    T=225C 

C  THIS     ==CGRAN     CCfPUTES     T"U2     STRESS     AMC    STRAIN    C°.0,J1     INPUT     FIL' 

C  ENGINEEPING     S"3=SS    AMD     "TOiU,     VND    THEN     PLC73    T°UE 

C  STRESS     aGAINST     T3L2    STRAIN. 

Q  **k»*3«».*:S:ic*:»***  *********:****  **»******. *** 

EXTERNAL    SLQFE 

REAL     nil^),A2(iC),;:3(13),A4(!C),A5(:C),A6(10) 

REAL     47 (13 J  .JSIlCl.^ini.AKIlO) 

REAL     31  (10)  ,£Z<  1C)  ,e3(  10  ),3M1G)  ,8  5(1:1)  ,B6(  13) 

REAL     B7U0)  ,  E8(1C  ),E9(  10  I,  81 C  (10) 

REAL    SI (10)  ,  S2(1C)  ,S3<  13) ,S4(10  )  ,S5 (10)  ,36(10) 

REAL    S7( 13) , SE(1C) ,£5( 13), 3 10 (13) 

REAL    El  (10)  ,E2(1C) ,E3(  10  ),E4(10  ),E5  (10 ),Eo( 10) 

REAL    E7(10)  ,£H1C)  ,  E?(  10),E1C(13) 

REAL    CCS,  3  ,OG,TC  ,TD , LEG? ax ( 500) 

INTEGER     I,PTS1 ,FTS2  ,PTS3,PTS4,PTS5,PTS6 

INTEGER    FTS7,FTSE,P1S9,PTS10 

1=0 
WRITE ( 6,5) 
10  CCNTINUE 

1  =  1  +  1 

REAOI 77,*,ENC  =  2C)A1 (I)  ,81(1) 

S1(I)=A1  d)*(  1-I6K  I  )  ) 

Eld  )=ALCG(B1  (11+1  ) 
C  ACJUSTWENT    FCP    INSTFON     ANO    ELASTIC     STRAIN    ***** 

C  =  39.  1 

C  =  .l 

S  =  S1(  I  ) 

E=61(  I  ) 

CALL    SLCFEIC  ,CE,S,CHG) 

El(  I)=C1-G 
C  ***** 

WRITE  (6,  DAI  (I)  ,  Sl(  I),  81  (I)  ,E1(I  ) 

GC  TO  1C 
20      CCNTINUE 

PTS1=I-1 
C      111111111111111111111 

1=0 
WPITFf  6,5  ) 
3C      CONTINUE 
1=1  +  1 

REA0(7P,*,cNC=40  )A2(I)  ,  B2(  I  ) 

S2(I)=A2(I)*  (Heidi) 

E2(I)=ALCG(  32  (  I  Hi  ) 
C       ACJUSTPEN1"  FCF  INSTFCN  4ND  ELASTIC  STRAIN  S3*** 

C  =  61o 

C=.l 

S  =  S2(  I) 

E=E2(  I  ) 

CALL  SLCFE(CCE,S,CHG) 

E2(I)=CI-C 
C       ***** 

WRITE { 6, 2 1A2 (I)  .52 (  I). 82 (I) .£2(1) 

GC  TO  3C 
40      CCNTINUE 

PTS2=I-1 

C      222  222  22  2  2  ^22  2  1 1  2  22  2  i. 

1=0 
WRITE  (6,51 
5C      CCNTINUE 

1  =  1+1 

READ(  7S,*.ENC=6C)A2(I),32(I) 

S3(  I)  =A2  (I)-*  (  1  ^2(  I  )  ) 

E31I)  =AICG( 32 (  I)+l  ) 
C  ADJUSTMENT    FCP     IhSTPQN    ANO    ELASTIC     STRAIN    *»*** 

C=62»  7 

C  =  .l 

S=S3(  I) 

E=63( I) 

CALL    SLCFE(C  ,CE  ,S,CHG) 

E3( I)=ChG 


WSITC6  ,2)  A3  (  I)  ,£?(  I)  ,32  (I  )  ,E2(  I  ) 

GC    Trt     =C 

6C  CCNTINUE 

PTS3=!-1 

C  --ai-J333--J-33-5T-5-5-  -  T-3-3-:i33-J  ^ 

1=0 " 

WRITE! 6,5) 
70  CCNTINUE 

1  =  1  +  1 

REAO(  50,*,ENC=er  )A4 (I)  ,  3M I  ) 

SMI  )  =AA(  [)*  (1  464(  1)1 

E4(I)=ALCG(B4<  I)+l ) 
C  ACJUSTfENT    FCF     INSTFON     ANO    ELASTIC    STRAIN    ***** 

C=84.  1 

cr=.i5 

S=SA( I) 
E=<=M  I  ) 

CALL    SLCFE(CCE,S,CHG) 
E4(I)=ChG 
C  ***** 
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WRITE  (6,1)  AMI)  ,S4(  I),  34  (I)  ,  EM  I) 

GC  TT  7C 

30      CCNTINUE 

FTS4=I-1 

1=0 
WPITc(6,5) 
90      CONTINUE 

1  =  1+1 

RFAD!  49,*,cNC»i:C  >A5C  )  ,  E5  (  I  ) 

S£(I)=A5(I)'MH8  5{I  )  ) 

E5  (I)  =ALCG<  E5  (•  I)-»l  ) 
C       ADJUSTMENT  FCF  INSTPCN  ANO  ELASTIC  STBAIN  ****" 

C=lll. 

D=.l 

S  =  S5(  I) 

E  =  €5(  I  ) 

CALL  SLCF5(C ,C,Z,S,CHG) 

E5(I) =CHG 

WRITE(6,2)A5(  I)  ,S5U)»B5<I  )  ,Ef<I) 

GG  TD  90 

ICO     CCNTINUE 

PTS5= 1-1 

r  ccccc^seccceecccccccrcseccccc 

'No     " " 

V.P  IT"  (  6,5) 
2C0     CCNTINUE 
1  =  1+1 
READ? 48  i*,ENC  =  2CC )/»*<!)  fE6(  I  ) 

S6!I  )=A6  (I  )-Ml  ••£*(  I  )  ) 

E£(l )  =alcg(  ee  (  n  +  i ) 

C  ADJUSTMENT    FCP    INSTPON    AND    ELASTIC    STPAIN   ***** 

C*208. 
D-.15 
S=S6<  I  ) 
E*E6( I) 

CALL    SLCFE1C  ,l,E,S,CHG) 
E6(  I )  =  C  h C- 

WRITE(6,2)A6(I)  ,S6< I),86(I) PE6(I) 

GC  TT  2CC 
200     CCNTINUE 

PTS6=  1-1 
C       666666  666  66666  6  6 6  6  666666666666666666 

1  =  0 

URITE ( 6  ,3) 
4C0  CCNTINUE 

1  =  1+1 

REAO( 34,*,PNC=50C )47(I  ) , e7(  I  ) 

S7(I  )  =A7(I  )•*  (  1-«P7(  I  )  ) 

E7(I) =ALCG(37<  I) +1  ) 

C  ACJU3~'1ENT    FCP    INSTFQN    AND    ELASTIC     STPAIN      w*< 

C=Z22o 

C  =  ol 

S  =  S7I  I) 

c=E7(  I  ) 

CALL    SLC?E(C,C  ,S,S,CHG> 

£7(1) =  CHC 

n«ITE(6,l)A7(  IJ,S7(  I),  37  (I  )  ,E7(I) 

GC    TQ    h-CC 
SCO  CCNTINUE 

PTS7=I-1 
C  777777  77777777  7  77777  7777777777777777  77 

C  CIMENSICN    LEGPAK 


CALL    CCMFCS 

CALL    SMGCTH 

CALL    P0LY2 

CALL    SLC\»UP(.EC) 

CALL     PAGEdl.  ,E.*1 

CALL     MI>ALF(  •  IN  CTPU  •) 

yAXLIN  =  LINEST(L£CPAh,5  00,2  0) 

CALL     LINES(  '  loAXIC  (  =H0  5  l-A-5  '  ,  LEGPAK 

,1) 

CALL     LINESt  '  5.6X10  (EH.  5)-4S«  r  LEGPAK 

,2) 

CALL    LINES!  »  I  .4X10  (  EH.  5  1-3$'  ,  LEGPAK. 

,3) 

CALL    LINES!  '  5.6 XlC! EH. 5 1-3$'  ,  LEGPAK 

,4) 

CALL    LINES! ■  1.4X10 ( EH. 5  )-2S'  , LEGPAK 

,5) 

CALL    LINEC! ' 5.6XlC(?H. 5) -2  5*  .LEGPAK 

,6) 

CALL    LINES!  •  1 .4X1CIEH. 5) -15  '  .LEGPAK 

,7) 

CALL    VYLEGN! "STRMN    RATES    l/Si',16) 

CALL    FU7LKA 

CALL     SHCCHR ( 9C.  ,  1..G02 , 1 > 

CALL    THKCPV ( .C2  ) 

CALL    HEIGHT!. 2) 

CALL    XNANE{'TRUE     STR AIM S  '  ,100 » 

CALL    YNAMEf'TFLE     STR ESS (  (  )  MP A  (  )  )  * • , 1  CO  ) 
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CALL     \F=A2D(8aCtfe.O) 

call  heacd  i  ■      i<  ,icn,  «5 ,2  ) 

CALL    rlc.4CIM(  '  STD;£S     \S    STRAINS •  ,130 , 1.5 ,2 ) 

CALL    GRAFC  ,  .1  ,;.CiC.tlOC.f6CC.) 

CALL    THKFFM („C3 ) 

CALL  FSAfE 
CALL  CUPVEC31  i£ltFTSlf  +  l) 
CALL  CURVE('2  ,S2,FTS2,*1  ) 
CALL  CURVEIE2  ,S2,FTS2,  +  !.) 
CALL  CUPVF(-4,S4,  F  T  £  ^  ,  -t- 1  ) 
CALL  CURVE(==  ,55  ,F7S5,  +  l ) 
CALL  CURVEdt  ,S6  ,FTS£,+l  ) 
CALL    CUFVEC37,S7,FTS7,-H  ) 

CALL    RESET)  'ThKCFV  ) 

CALL    RESET( ' HEIGHT' ) 

CALL    LEGEND ( L  =  CF;H  ,7,5.5  ,3. ) 

CALL    3L?EC(5. Z  ,2,7,2=5 ,2.5,. CZ> 

CALL  MESSAGE  «7S."F=  MATURE    =    i  •  ,100,2  .  ,4.5  ) 

CALL  INTN0( 225,  'A8LT',  • AeuT'  ) 

CALL  MESS4G('     (  EF.,3  >0(  EXI-X  )CI'  ,100,  'ABUT'  ,  'ABUT  '  ) 

CALL  BLPEC(l.Ef4.4,2.7f .4, .02) 

C  «l«.«ll««»«B«ti,Vli,l..,» 

CALL  MFSSAGJ  '  tl-lG„ Z?MG~,.5  2 3NM J • ,100,2.5,5.5) 
CALL  8L  =  EC(  203  ,5o4  ,'o6,.4,.C2) 

C       „„„„„„„<.,*„„„,,»,.,,„„„„ 

CALL    MESSAG('E.\C    CATA    3C!*ITS    CC    MOT     $  •  ,  100  , 1.  2  ,  .  1  ) 
CALL    MESSAGl  'INDICATE    F^ £CTUP E i  '  ,10 0  ,  ' ABUT'  ,  ' ABUT •  ) 
CALL    eLPECdol  ,oC6,4.9?.24,.C2  ) 

CALL   GRIC(2,2 ) 

CALL    ENDFL(O) 

CALL    OCNEFL 

1  FCRMATl 1X.4F12.5) 

2  FCRMAT( 1X.4F12.5 > 

3  FCRMAT(1X,4F12.5 ) 
C4  FORMAT (IX, I  3  ) 

5  FORMAT (IX, /,4X  ,'ENG    STRESS'  i  2X  ,  "TP.UE     STRESS'  ,2X  ,'  EMG    STRA[N»,2X, 

3  'TRUE     STRATI'  ,/  ) 

END 

SL3P0UTINE     SLCFE  (C  ,C,c,S  ,CHG  ) 

REAL  CC:,  S  ,ChG,TC  ,TD 

TC=C  « (1.+0) 

T0=4L03(C+1. ) 

OG=*-S»TD/TC 

IF(CHG.LE.O. )GC  TO  11 

GC  T0  21 
11      ChG=). 
21      CONTINUE 

RETURN 

ENO 
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C  TRU1     STFrSS     VS    tpu:    STRAIN    M    T=25CC 

C  THIS     ^CGF.i.v     CCwOL'T"S     T~UE     STRESS     3NC    GT'UN    =R0"1     INPUT     =IL1S 

C  ENGINEERING     STRESS    AND    'TfiU,     »N0    THEN    PLOTS.    TRUE 

C  STRESS     AGAINST     THUS    3TPAIN. 

C  *«#«*** #*fr»*  *  <*  *  ****** ***•***»***».*  *»^<A-» 

EXTERNAL    SLOPE 

REAL    Al  (  10)  ,A2(1C  )  ,  A2(  10  It  MI!CI  ,A5  (  1C  )  ,A6(  10) 

REAL     A7I10)  »A8(  1C  )  ,*<?(  1?  ),A1C  110) 

REAL     ei(n).a2(lC)»a3(10)»8*(lC),8  5(lC),86(13l 

REAL     e7(10)  , E?(lC)re9(10  It 81C(1D ) 

REAL    SI  (  10)  ,  S2(1C)  ,S3(  10)  ,SM  10)  ,55  (10)  ,S6(13) 

real  37(ni,se{:cifS9(:Di,sic(ioi 

PEAL    El  (10)  ,  E2(1C)  ►■=3(10  )»E4(1Q  ),E5  (10  )rE6<  10) 

REAL    E7U0I  ,  EE  (1C)  ,  E9<  10  I  ,2  1C  ( 10  I 

REAL    C,C,E,StCHGtTC,T0,LEGPAK(500) 

INTEGER     I,PTS1,FTS2  ,PTS3  ,PTS4,PTS5,PTS6 

INTEGER    FTS7,FTSe,?1S9,PTSl0 

1=0 
WRITE(  6,5) 
10  CCNTINUE 

1  =  1  +  1 

REA0( 69,*,ENC  =  2C  )A1  (I) ,81(1) 

Sl(  I)  =A1(I  )*(  1-tSK  I  )  ) 

Eld)  =ALCG(  81  (  I)+l  ) 
C  ACJUSTMENT    FCP     INSTFON     ANO    ELASTIC     STRAIN    ***** 

C  =  15.3 

C=.075 

S  =  S1(  I  I 

E=E1(  I  ) 

CALL    SLCFE(C  ,C  ,E,S,CHG) 

El(  I)=CI-C- 

WRITE  (6,1)  Aid)  ,S1(  I),B1  (I)  ,E1(I  ) 

GC   TO    1C 
20  CCNTINUE 

PTS1=I-1 
C  111111111111111111111 

1=0 
WRITE*  6,5  ) 
30  CONTINUE 

1  =  1  +  1 

REAO(  72  ,*,cNC=40  IA2  (I)  ,  82  (  I  ) 

S2(I)=A2(I  I*  (  l-te2(  I  )  ) 

E2(I)  =ALCG(32  (  I  Ml  ) 
C  ACJUS7MEN7    ecF     INSTFCN    ANO    EL/STIC    STRAIN     ***** 

C=20. I 

0=.042 

S  =  S2(  I) 

E=E2(  I  ) 

CALL    SLCFC(C  ,C  ,£,S,CHG) 

E2(  I  )=CI-G 

.  WRITE (6  ,2) A2 (  I)  ,  S2  (  I  ), 82  (I ) , E2( I) 
GC    TO    3C 
40  CCNTINUE 

_PTS2= 1-1 

C  2  22222222222222222222 

1=0 
WRIT=( 6,5) 
50  CONTINUE 

1  =  1  +  1 

READf  71  ,*,ENC=6C  IA2  (I)  ,B3(  I  I 

S3( I)=A2(I »* I  1 462 (111 

E2(I) =AICG(8  2 ( I )+l ) 
C  ADJUSTMENT    POP     INSTRQN     ANO     ELASTIC     STRAIN     *=**^-« 

C=27»  5 

C=.083 

S  =  S3( I  ) 

E=E3(  I  ) 

CALL    3LCFE(C  ,C  ,E,S,CHG) 

E2<  1 1  =C  J-G 

Q  <»«*»« 

WRI" 

GC    TS1     5C 
6C  CCNTTNUF 

PTS3=I-1 
£  i ii  3^3  n i  ■> ij  i  i  n  i  " i i  *"333  3  - 

"I=n " 

WRITE! 6,5) 
70  CCNTINUF 

1  =  1  +  1 

REAO(  73,*,ENC=SC  1A4  (I)  ,  8M  I  ) 

S4(I)  =AA(I  l*(l-t6A(  III 

EMI  )=ALCG(  8 A  (  1  )  +  1  ) 
C  ACJUSTfENT    FCF     INSTFON     ANO    ELASTIC     STRAIN    ***** 

C  =  37.6 

C  =  .l 

S  =  SA(  I) 

E=EM  I  ) 

CALL    SLCFE(CfCc.SfCHG) 

EMI) =CHG 
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WRIT=(ft,l)A4  (  I  )  ,S4(  lit  34(1)  f  EM  I  ) 

GG    tj    7C 
90  CCNTINUE 

FTS4=I-i 
C  44444444444444.4^44<i44444444 

1=0 
WPITE(6,S) 
■30  CCNTINUE 

1  =  1  +  1 

HEA0<  68  ,*  ,3NC  =  1CC)  -!  f  (I  )  ,  E5  (  I  ) 

S5<i)=A;(n*(i<es(i)i 

E5 ( I ) =ALCG( e5  (  I  HI  I 
C  ADJUSTMENT    FCF    INS7F-0N    ANO    ELASTIC    STRAIN    3**;** 

C=54. 3 

D  =  .l 

S  =  S5<  I) 

E  =  £5(  I) 

CALL    SLCFE(C  ,C  ,E,S, CHG) 

E5( I)=ChG 
C  *•**» 

WBIT5(6f2)A5(I) tS5(IJ,B5(I),ES(IJ 

GC    tt    9C 
ICO  CCNTINUE 

PTS5=I-1 

£        =  =  c C55 C c c c eg c  c  c  c c c c e  e C5 5  =  055 c 

'l=n 

WRITE (  6,5) 

2C0     CCNTINUE 

1  =  1+1 

R5AD( 67,*,=NC=3CC)A£(I)  ,  ?6(  I  ) 

S6(I)  =  A6  (I>*  (1  <t£ (  I  )  ) 

E6(I  1 =4LCG(B6  (!)♦!) 
C       ADJUSTMENT  FCR  INSTFON  AND  ELASTIC  STRAIN  ***** 

C=53. 9 

C=.067 

S  =  S6(  I  ) 

E=E6(  I  ) 

CALL  SLCF^IC, C  ,c,S, CHG) 

E*(II »CK 
C      ***** 

WRITS  (6  ,3)  A  6  (  I)  ,  £6(  I),  36  (I  )  ,  E6(  I  ) 

GC  TO  2CC 
3C0     CCNTINUE 

PTS6=I-1 
C      66666666666666666  666  6666666666666666 

1  =  0 

WPITE(6  ,5 ) 
4C3  CCNTINUE 

1  =  1  +  1 

RFAD(  65,*,ENC=5CC  1*7(1  )  , e7(  I  ) 

£7(  I  )=A7(I  )■-(  1  -167(1  1  1 

E7(I)=ALCG(37(  1M1) 

C  ACJUSTMEM    PCP     INSTFT)     AND     ~L.«STIC     STRAIN     :*«■--« 

C=03o  1 

C  =  ,15 

S=S7(  !) 

E  =  E7(  I  ) 

CALL     5LCP5(C,C  ,E,S,CHG) 

E7(I) =CHC 

WRIT=(6,1)A7(  I)  ,S7(  11,87(1  )  r £7( I  1 

GC  TO  -VCC 
5C3     CCNTINUE 

PTS7=I-1 
C      777  777  777777777  7  7  777777  7777777777777  77 

1=0 
WRITE ( 6,5 ) 
600     CCNTINUE 

1  =  1  +  1 

REA0(  64,*,ENC  =  70C1A8(I  )  ,  88 (  I  1 

SE(I)=A£(I )» (1 te6(  I  1  1 

Earn =alcg( be(  1  i+i  i 

C       ADJUSTMENT  ^CF  [NSTRGM  AND  ELASTIC  STFAIM  ***->*: 

C«110. 

C  =  .15 

S  =  S8(  I  I 

E  =  E3(  I  1 

CALL    SLCFEtCC  ,E,S,CHG) 

EE(  I  1  =ChG 
C  ***** 

WRITE (6  ,Z) A8(  I  )  ,S9(  I  1 , 88 ( I  1  ,  £? ( I  1 

GC  Tl    6CC 
7C0     CCNTINUE 

FTS8=(-1 
C      EEEE88eeEEE9SEE£EE£eEe38a£388£E98 

1=0 
WRIT=( 6,5) 
800    CCNTINUE 

1  =  1+1 

READ<  63  ,*,ENO=<?OC  )  AS(I  )  ,  e9(  I  ) 

SS(I)  =A<(I)*<  1  -"PS  (  I  >  ) 

E<3  (I  )  =AirG(Q<;  (11+1)  0_ 


hoc 

c 
c 


CHG) 


C  ACJUSTfEIW 

C=155. 

S=S9<  I  I 

E  =  E9(  I  ) 

CALL    3LCFE(C  ,C  ,E, 

E<=m=CHG 

hgITE[|^|l491  I)  ,S9(I),B9(I), 

9CO  CONTINUE 

PTS?=I-1 
C  9S55<?5<;<;ccc99ccececcc99cgcQg 

1=0 
WHITE! 1,1) 
1000  CONTINUE 

1  =  1  +  1 

READ(3  5,*,£NC  =  11CC)  A10!  I  ),31 
S10(I  )  =  A10(  I  )*< 1+31CII)  ) 
E10(I  )=ALOG ( E10 (  I  )  +  l  ) 
C  ACJUSTMENT    FCP     INSTPO.'I     AND     = 

C=130. 
C-.l 

S=S10(  I  ) 
E=E10(I  ) 

CALL   SLCF5JCC, E,S, CHG) 

E10(  I  )  =  CI-G 

C  ***anc 

WPIT5(6,1)A1C(I)  ,S1C(I  )  ,810! 

CCMTTNUE 
PTS13=I-1 

icioio  io  icioi  c  i  cic  i  c  io:o  icio  i 

CIVENSICN   legpak 
CALL    CCMFFS 
CALL    SM0C1H 
CALL    P0LY3 
CALL    BLCfcLP!.*3?  ) 
CALL     PAGEdl.  ,£.5) 
CALL     "MXALF!   '  IN  ^TPL  '  ) 
PAX  LI  N=LINEST  (L:CP/!H  ,500  ,20  ) 
CALL    LINES!  '  1 .  A  >  10  t  EH.  3  l-A-J 
LINES!  '  2.3X10!  EH.  51-4-S 
LINES! ' 5.O10I FH.5 )-<►$ 
LINES)  •  1.4X10!  EH.51-3S 
LINES!  ' '.EXlOt  EH. 5)-3 i 
LINES! • ;.6X10< PH.5)-3$ 
LINES! ' 1.4X1CIEH. 5>-2S 
LINES ( • 2.6X101  EH.5  1-2  S 
LINES!  *  5.6X1CIEH. 5 1-2$ 
LINES! ■  1.4X10 ( EH. 5) -IS 
RATES    1/ 


CF     INSTFON     ANO     ELASTIC     STFAIN     $*■■( 


E?(  I  ) 


C(I  ) 

LJSTIC     STRAIN    ***** 


I) »£10(  I) 

CIO 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


PYLEGN (  '  STRAIN 

FUTLPA 

SHCCHR  (9C.  ,1,.C02,1  ) 

THKCRVUC2) 

HEICHT(  .1  ) 

XNAMEC  T<=LE     STRAINS'  ,100 


.LEGPAK  ,1) 
,LEGPAK. ,2) 
,LEGPAK  ,3  ) 
,LEG?AK  ,4) 
,LEGPAK ,5) 
,LEGPAK  ,6) 
.LEGPAK  ,7) 
,LEGPAK  ,3) 
.LEGPAK  ,9) 
,LEG?AK  ,10) 
Sl«  ,16) 


CALL    YNAPEl  'TPLE     STRESS!  ( 
CALL    AREA2D(3.C,6.0 ) 

CALL    HEACIN!  '        i  '  ,1C0,  .5  ,2) 
CALL    HEACIM!  •  STRESS     \,S    STRAIN 
CALL    GRAF  (0.  ,.1  ,1.0, C, 50. ,22 

CALL    THKFRMUC2) 

CALL  FPACE 
CALL  CUFVFIE1  ,S1  ,FTS1  ,+1  ) 
CALL  CUR\.E{  =  2  ,S2,F7S2,  +  1) 
CALL  CURVE(E3  ,S2,PTS3,-t-L  ) 
CALL  CURVE(54  ,S4,PTSA,<-1  ) 
CALL  CURVE(E5  ,S5,FTS5,*1) 
CALL  CURVEIE6  ,S6,FTS6,+1  ) 
CALL  CUPVE(C7  ,£7,F7S7,  +  1) 
CALL  CURVEtSS  ,  S 2  ,  FT S 5  ,  +  1 ) 
CALL  CUPVE!E9  ,S9  ,P7Sc,-t-L  ) 
CALL    CURVE1E1C  ,  SIC  ,  F7S10 , *1 ) 

CALL    RESET!  ' TFKCPV  •  ) 

CALL    RESET!  ' HEIGHT'  ) 

CALL    LEGEND (LEGPAK, 10.5.5,3. 

CALL     8LFEC(5o2  ,2.7,2.5, 3., .C 

WWWWWVWWfctaWtakV  \*  V  * » * » 
CALL    MESSAG!  'TEMPERATURE    =     $ 
CALL     INTNC(25C,  ' /ELT' ,  • AeUT' 
CALL    «E£SAG('     <  -H.  2  >0(  Exi-X  I  C 
CALL     3LREC!  5.  ,  .=  ,2.  7,.  ^  ,  .02  ) 

CALL    MESSAG!  "AL-10.  2S'1G-C.  52 
CALL     BLFFCl 2.3  ,  f .4  ,2.6, .4, .C 


MPA  (  )  )$• ,1001 


!•  ,100,  1.5,2) 
C.) 


2  ) 

•  ,100,5.2,  1.  ) 

I 

$'  ,100,  'AeLT'  , ' ABUT' 

40'NS*  ,100,2.5,5.5  ) 
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CALL    ''FSS4G(  '  cnc    d~A    »niMTS    CO    V!QT    J1  ,1CC,1.Z..'.I 
CALL     ■ICSSAGt  '  INC  ICiT=    ==  iCTU  F  E  S  '  1 10  C  ,  *  4  BUT  '  ,  '  idUT  '  ) 
CALL     ei_FEC(  lol  ,,C£  ,4.  5  ,.Z4.,„C2) 

CALL    G3IC (2,£  ) 

CALL    EN0FL10 ) 

CALL    3CNFFL 

1  FCPMATt 1X.4F12.3 ) 

2  FORMAT)  1>,4F12.5 ) 

3  FORMftTl l>t4F12.=) 
C4  FGR^TIIX,  12  ) 

5  FCRMAT(1X,/,4X  ,'CNG    STP  E  3S«  ,  2>  f '  T">UE     STRESS '  ,2X  ,  •  ENG    STP.  A  IN  •  ,  2X 

3  'TRUE    STRAIN'   ,/  ) 

STOP 

END 

SUBROUTINE    SLCFE  (C  ,  C  ,~ , S  .CHG  ) 

REAL    CtCictS  ,CHG  ,TC  iTTJ 

TC=C*(1.*0) 

TC=ALf!G(C+L. ) 

CI-G=a-S*TO/TC 

IFfCHG.LEjJc  )GC    TO     11 

GC    TO    21 
11  CHG=0. 

21  CONTINUE 

PETURN 

ENO 


99 


C  TRUE     cTr>-S3     \S    TFLC    ZTZ£lk'-    AT    T=2~"zZ 

C  THIS     FPCGRAI*     CCPPUTSS    T"U£     STRFS3     ANC     STPAIM    "ONI     INPUT     PI  L^fi 

C  ENGINEERING     £TC  =  S!    ANO     STRAIN  f     VNO    ThEN     ?LCTS    T^UC 

C  STRESS     ^GAINST    TRL.E    STRAIN. 

£  ^  «:;;¥*  <;**<***»*»  l«*»M3ti»)t«  J.*  *<****:* 

EXTERNAL     SLOPE 

REAL    Al(10),A2nC),A3(10),AMlC),A5(lC),A6<13> 

REAL     A7(10),AS(1C),A9(10),A1C(10) 

REAL     31(13), e2(K),  S3  (101,84(10), 3  5(13), 86(10) 

real  87  mi ,  ee  (ic  i , Eg<  io  i,aic  no  i 

REAL    31(10) ,S2(1C>  rS3( 10)iS4(10) »S5 (10) ,S6(10) 
REAL    S7(10) t Sfi(lC) t£9llO)»SlC{10J 

REAL    El  (10)  ,E2  (1C>  ,E3(  10  ),EM10)  ,c5  (10  ),E6(10) 
REAL    E7(10),EH1C),E9(10),F1C(10) 
REAL    C,C,E,S,CI-G,TC,TD,LEGPAK(50a) 
INTEGER     I.PTS1  ,PTS2  ,PT53  ,PT£A  ,PTS5, PTS6 
INTEGER    PTS7,PTSe,P7S9,PTS10 
1=0 
WRITFf  6,5) 
10  CCNTINUE 

f*I+l 
REACH  fc6,*,ENC  =  2C  )A1  (I)  ,B1(  I  ) 

si(i)»Ai(n*(neu  i )) 

El(l) =ALCG(B1  (I)+l) 
C       ACJUSTMENT  FCP  INSTFGN  ANO  ELASTIC  STRAIN  ***** 

C  =  12„3 

C  =  .l 

S  =  S1(  I  ) 

E=E1(  I) 

CALL    SLCPEtC  ,C  ,E,S, CHG) 

El(  I )  =ChC- 
C  ****.* 

WRITE  (6,  DAI  (I)  ,S1(  I),  81  (I)  , El(I) 

GC  Tl    1C 
20      CCNTINUE 

PTS1=I-1 
C      111111111111111111111 

1=0 
WRIT~( 6,5 ) 
3C      CCNTINUE 
1  =  1  +  1 

REAO(  75»*icN0*4C  )A2  (I)  ,82(  I  ) 

S2(I  )*A2(I)->(  1  <62(  I  )  ) 

E2(I) =ALCG( B2  (  I  I  ♦•.  ) 
C  ADJUSTMENT     PCF     INSTFCN     ANO     ELASTIC     STRAIN      -«w 

C*13.4 

C  =  .l 

S  =  S2l  I) 

E=E2( I  ) 

CALL    SLCFE(C ,C  ,E,S,CHG> 

=  2(1)  =C)-C- 

WRIT!!  (6 ,2) A2 (  I)  ,  S2(  I ),B2  (I ) t  £2(1) 
GC    T<3    3C 
40  CCNTINUE 

_PTS2=I-1 

C      2222222222222  22  22  2222 

1=0 
WRITE! 6,5) 
50      CCNTINUE 

1*1+1 

REAO(  76  ,•*  ,5NC»*C  )A?  (I)  ,81(1) 

S3(  I  )  =  43  (I  )+  (  HR3(  !  )  ) 

E3(I ) =ALCG(33  (  I) +)  ) 
C       ACJUSTMENT  FCR  INSTFHN  AND  ELASTIC  STRAIN  ****■ 

C*14. 7 

C  =  .05 

S=S3(  I) 

E  =  E3(  I) 

CALL    SLCPEIC  ,C  ,c,S, CHG) 

E3(  I)=ChG 

i»RIT:i6,2)A3(!)  ,J3(Ili33li)  ,£2(1  J 
GC    7)     5C 
6C  CCNTINUE 

r  i  ■3-3-J13  iii-j"^!  -  -  "3  "3  ",~33332 

"i=o~ 

WRIT1!!  6,5) 
70  CCNTINUE 

1*1+3 
REA0(  62 ,*,ENC  =  SC  )A4  (I)  , B4( I  ) 

S4d  i  =aa  a)*  <ne«(  I  )  ) 

C  IcjUSTMENt'eOpMnSTPON     ANO    ELASTIC    STRAIN    ***** 

C  =  32.4 
C=.15 
S=S4(  I) 
E=EM  I  ) 

CALL    SLCFE(C,C,E,S,CHG> 
EMI)=CHG 

c  ****""  100 


WRITrr  (6  ,1  )  1M  I  )  ,  S4(  I  ),  6  4  (I  )  ,  EM  I  ) 

C™    ""  1    7  r 
80  CONTINUE 

F7S4=[-1 
C  44444444444444444  44444444444 

1=0 
WRITE( 6,5) 
90  CONTINUE 

1  =  1  +  1 

REACH  61  ,*,ENC=1CC  J  *  =  1 1  )  ,  E5  (  I  ) 

S5(  I)  =A5(  I)*<  HB5(I  >) 

E5<I)=ALCG(85  (  I  Ml  ) 
C  ADJUSTMENT    FCR    INSTFON    AND    ELASTIC    STRAIN    ***** 

C=26.5 

C=.067 

S=S5(  I  ) 

E  =  E5(  I  ) 

CALL    SLCPE(C  ,C  ,S,S,CHG) 

E51I )=ChC- 

WRITE (6,2) A5(  I)  ,55 (I), B 5 (I  )  ,  E5(I) 

GC    TO    QC 
100  CCNTTNUE 

PTS5=I-1 
C  5555555555553555,:555555555555 

1=0 
WRITE! 6,5) 
200  CCNTTNUE 

1  =  1  +  1 

REACH  59,*,ENC  =  2CC1 A  6(1  )  ,e6( I  ) 

S6(I  )  =A6(  !)*(!  -fPft  I  )  ) 

E6(I) =ALCG( 66  < I) +1 ) 
C  ADJUSTMENT    FCR     INSTFON     AND    ELASTIC     STRAIN    ***** 

C  =  36„ 7 

C  =  .l 

S  =  S6(  I) 

E  =  E6(  I  ) 

CALL    SLCFEIC  ,C  ,E,S, CHG) 

E6(  I)  =Ct-G 

WRITE  (  6,3  )A6(  I)  ,  <6(  n,B6(I  )  ,  E6<  I) 

GC  tt  2CC 
3C0     CCNTTNUE 

PTS6=I-1 
C      6  66666  66666666  6  6=666  666666666  6  6  66666 

I=C 

WRITE!  6,5) 
4C0  CONTINUE 

1  =  1+1 

REAO( 41  ,*,ENC  =  5CC  >A7(I  )  ,E7(  I  ) 

S7(I)  =A7(I)-S  (1  -»97  (  I  )  ) 

E7(I)=4LCG(37(  I)+l  ) 
C  ADJUSTMENT     PCR     INSTFGM     ANO     ELASTIC     STRAIN    -■**■«-'' 

C=61o  1 

D=o033 

S=S7(  I) 

E=E7(  I  ) 

CALL    3LCPE(C  ,C,r  ,S  ,CHG) 

E7(I ) =CHG 

Q  ***»:; 

WRITE (6  ,1)A7(  I)  ,S7(  I),B7(I )  ,E7(I) 

GC    tt    ^,CC 
SCO  CONTINUE 

C  777777777 7777 77 7 7777 7777777777777777 77 

1=0 
WRITE! 6,5 ) 
600  CONTINUE 

1=1  +  1 

RSAO(  60,*,ENO=70C  )A?(I  )  ,e8( I  ) 

SEII  )  =A8(D*  (1  ^8(1  )  ) 

ES(I)=ALCC-{Bf(I)+l) 
C       ADJUSTMENT  =CF  INSTFGN  AND  ELASTIC  STPilN  ***** 

C  =  85o  3 

0  =  .15 

S  =  S8<  !  ) 

£=*<?(  I  ) 

CALL    SLCFEIC, C,£,S, CFG) 

ESI  I  )  =ChG 

WRITE(6,2)A8(  I)  ,S8(  I),  88(1  )  ,E8(  I  ) 

GC    Tl    6CC 
700  CONTINUE 

C  £88633 88EE538EEEEEEEE 88 88E888EE88 

1=0 
WRITEl 6,5) 
800  CONTINUE 

101 


900 


100C 


HOC 

c 
c 


1=1+1 

RP4H(  5  8  ,~,ENC  =  9  TO  ic(I  )  ,  E9<  i  ) 

S9(I  )  =4«(I  I-  (  1  *fC|  I  )  ) 

E9(I  )  =ALCGl  S9  (  1  )  -H  ) 

ACJUSTf^ENT    =  CP     INSTPON    ANO     ELASTIC     STRAIN    **-<: 

c=ioo. 

C  =  .16 

S  =  S9(  I  ) 

c  =  E9(  I  ) 

CALL  SLCFEIC  ,C  ,.1  .StCHGJ 

WRITS (6, 3) A« I  I),!9(!),39<1)  ,£5(1) 

GC  73  3CC 
CCNTINUE 
PTS9-I-1 
cqgqqogqccgggc  cccccceqgggcga 

1=0 
WRITE! 6,5) 
CCNTINUE 
1  =  1  +  1 
READ(37,*,ENC  =  llCC)Alf)(I>,81C(I) 

S10( i  >=aio( i  i*(i+ei:(i i  > 

f=10(  I  )=ALCGieiC(  I)  +  l  ) 

ADJUSTMENT  FCR  INSTCOM 

C=143« 

0  =  ,15 

S  =  510( I  ) 

8=510(1  ) 

CALL  UCF= 

E10!I  )  =  C  HG 


ANO  ELASTIC  STRAIN  **-** 


C,C  ,E,S,CHG> 


WRITE (6,1  )A1C(  I  )  ,S1C(I  )  ,eiO(  I)  ,810  (  I) 
GC  TO  1CC0 


CCNTINUc 
PTS10=I-1 

lGlOlOlOlClOlC 

CI.MENS 
CALL  CC^F^S 
CALL  SM,OCTH 
CALL  P0LY3 
CALL  8LCWLP!.£ 
CALL  FAGEd" 
CALL  *IXALF 
PAXLI N=L  IME 
CALL  LINES! 
CALL  LINESI 
CALL  LINES! 
CALL  LINES! 
CALL  LINES! 
CALL  LINES! 
CALL  LINES! 
CALL  LINES! 
CALL  LINES! 
CALL  LINES! 
CALL  fVLEGM 
CALL  FUTLPA 
CALL  SHCCHR 
CALL  THKC9V 
CALL  HEIGHT 
CALL  XNAMECTR 


1  r '  C  C  "  "-1  " 1 
ICN  LEGPAK 


::  oicic 


CALL  YNAMC(  '  TP 
CALL  AREA2013. 

CALL  HEACIM!  ' 
CALL  HEACIM! ' S 
CALL  GRAF  (0. 

CALL  THKFPM!. 

CALL  FRAfE 
CALL  CURVElEl  , 
CALL  CUR<.EIE2  , 
CALL  CURVF(E2  , 
CALL  CUPVE1EA, 
CALL  CURVt(E5 , 
CALL  C'JPVF(E6  , 
CALL  CUP.VE(E7  , 
CALL  CURVE(E<=  , 
CALL  CUFVEIE9  , 
CALL  CURVEtElC 

CALL     RESET('T 


5) 

,2.5) 
INSTPL  '  ) 
(LEGFAH  ,500 
.4X10! EH. 5 ) 
.8X10(EH.5) 
.fc>10(EH.5  ) 

.axioi  :h. 5 ) 

.8X10!  EH.5  ) 
.6X10! EH.5) 
.AX1C!  EH. 5) 
•axiO! EH.5 ) 
.6X10! =H. 5) 
.4X10! EH.5 ) 
STRAIN  RATE 

c , i ,.002,1 

02  ) 

2) 

Lc  STRAINS' 

LE  STRESS! ( 

C.6.0) 

i' ,icn,.5 

TPESS  ^.S  ST 
1 , i .0 , C. , 50 
C2  ) 


,2T 

-A-S 
— AS 
-•AS 
-3S 
-3  $ 
-3$ 
-2$ 
-2$ 
-2$ 
-1$ 
1/ 


, LEGPAK  ,1) 
, LEGPAK ,2) 
.LEGPAK  ,3  ) 
, LEGPAK  ,4) 
, LEGPAK  ,5  ) 
, LEGPAK  ,6) 
, LEGPAK  ,7) 
.LEGPAK  ,3  ) 
.LEGPAK  ,9) 
.LEGPAK  ,10) 
Si'  ,16) 


,100  ) 

JMPA  (  )  )$•  ,100) 

,2) 

PAINS', 100,  1.3,2) 

of  cZCo  ) 


CALL  RESET!  •  (- 
CALL  LEGEND (L 
CALL    3LFFC(5a 

WW  WWW  ««.,»,,,*, 
CALL  "ESSAii!  ' 
CALL  INTNC(27 
CALL  MESSAG!  ' 
CALL  HLPFC(2. 
WWWWIW  WWW  WWV«W  w 


51, FT 
S2,F7 
S3  ,FT 
SA  ,FT 
S5.FT 
S6,FT 
£7, FT 
56, FT 
E9  ,P7 
.£1C, 
HKCFV 
EIGHT 
EGPAK 

2  ,2.7 
v  >  *  t  <• 
TE«FF 

5, '  «e 

J  EH. 

3  ,A  .A 


Slt+1  1 

S2  ,+  1  ) 
S2.+1  ) 
SA,  +  1  ) 
3  5  ,  + 1  ) 
S-S+L  ) 
S7,  +  !.  ) 
<?,  +  '.) 
59,  +  L  ) 
FTS10, 

•  ) 

•  ) 

,  11,5. 
,  ?o5  ,3 

'iTURE 
LT«,  '  A 
2  )0( EX 

WWW 


+  1 ) 

5,3.  ) 

*t  o02  ) 

=    S*, 10", 2.5.4.5) 

BUT'  ) 

HXJCi'  ,100,  '  AeUT'  ,  ' ABUT'  ) 

A,. 02) 
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1 

2 

3 

C4 

5 


11 
21 


CALL  Mc 
CALL  eL 

U  Ww WW  W  M 

r^LL  *f 

CALL  *F 

CALL  RL 

CALL  GRI 

CALL  =  ND 

CALL  DCN 

FCR'4AT( 

FC^ITI 

FORMAT! 

FCR^^T 

FCRMATd 

»»T?.US  ST 

STOP 

ENO 

susaauT 

R  =  AL  C , 
TC=CM  1 

to=al:g 

CHG='"-S 
IFtCHG. 
GC  TO  2 
CHG=0. 

CCNTTNU 

RETURN 

ENO 


SSiG< 
FECI  2 
-  -  »h  - 
SSAG< 
S.^AGf 
PEC(  1 
C(2,2 
FL(0  ) 
EPL 
IX, 4F 
IX, 4F 
IX, 4F 
(IX,  I 
X,/,4 
RAIN' 


'  AL-!?„  Z'HG-  "o  513VNS'  ,1C:  ,2,  5  .5.5  ) 

a3r5o4,ZoO»o4,o02) 

•EfG    CATA    PTINTS     CC    MnT     $  <  ,  ICC  ,  I.  2  ,«  I  ) 
'  INCICAT;    FRACTUPEt"  ,10  0,  •  «8UT' ,  ' ABUT'  ) 
si  ioC£  t  4a  '9  ,  •  24- ,  •  C  2  ) 

) 


1  ^  a  ^   I 

12.; ) 

12.5) 

2  ) 

X,»~NG    STP.FSS'  ,2X,'TRU£    STRESS', i 
,/) 


=NG    STRA[  M  •  ,2X, 


IN?    SLCFE  (CCc.S  ,CHG  ) 

CI,  3  ,OG  ,TC  ,-D 

.+0) 

(Ol.  ) 
=»TQ/TC 

LEoO.  )GQ    TC     11 
1 
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C  TRUO     S^FTSS     \S    TPL'^:    STRAIN     ST    T-225C 

C  THIS     PPC.GR  if    CCPPLTES     ~3|JE     S7REFS     AND     STRAIN    "1U     INPUT     FILTS     rf 

C  ENGINEERING    S"PCS£    ANO    STRAIN,    AND    ThEN    PLOTS    TRUE 

C  STRESS    AGAINST     TPL2    STRAIN. 

EXTERNAL    SLCFE 

REAL     A1(!G)  ,A2(1C),A3(10),A4(1C)  ,  45  ( 1C  )  ,  A6 ( 13  ) 

REAL     A7(10)  ,AE(:C),A9(10),A1C(10) 

REAL     31  (10)  ,e  2 (  1C  )  ,  e3<  10  ),84  (10 ) ,85  (10  ),S6( 10  ) 

REAL     37  (  10)  ,  BE  (  1C)  ,  6<?(  10),31C(10) 

REAL    SI  (10)  ,S2(1C)  ,£3<  10  ),SM10  )  ,35  (10  ),S6(  10) 

REAL    S7( 1C)  ,SE(1C)  ,<0< 10)  ,S1C (10) 

REAL    =  1  (10)  ,E2<  1C)  ,E3(10>,E4 (10)  ,E5<10)  ,E6( 10) 

REAL    E7(10) , Ee(lC)  ,E9(10  ),E1C(10 ) 

REAL    C ,C, E,S  ,ChG  ,TC  , TO ,LEGPAH(500) 

INTEGER     I.PTS1.PTS2  ,PTS3  ,PTS4,?TS5,PTS6 

INTEGER    PTS7  ,PTS8  ,P1S9,PTS10 

1=0 
WRITE! 6,5) 
10  CCNTINUE 

1  =  1  +  1 

PEA0(51  ,*,SNC»20  )A1  (I)  , 81( I  ) 

SKI  )=A1(I  )*meilll) 

E1(I)=ALCG(B1  (  I)+l ) 
C  ADJUSTMENT    FOF    IhSTFON    ANO    ELASTIC    STRAIN    ***** 

C  =  5.21 

C=.033 

£=S1( I) 

E  =  E1(  I) 

CALL    SLCFE(C,C  ,E,S,CHG) 

Eld  )=ChG 

C  ****:« 

WRITS  (6,  DAK  I)  rSK  I),B1  (I  )  ,  El  (  I ) 
GO    TO    1C 
20  CCNTINUE 

PTS1-T-! 

C  111111111111111111111 

I=n 
WRITE! 6,5) 
30  CCNTINUE 

1  =  1+1 

READ(  29,*,ENC«40  )A2  (I)  ,  3  2(  I  ) 

S2( I) =A2(I) *  (  1  f?2 ( I  )  ) 

c2(I)=ALCG< 32(11+1) 
C  ACJUST^EN-    FCP     IhSTFON     AND    ELASTIC     STRAIN    *»**» 

C=9.79 

0  =  .O5 

S  =  S2(  I) 

E=€2<  I) 

CALL  SLCPFJC  ,C  ,c,S,CHG) 

E2(I) =CHG 

C         **»*:* 

WRITE (6  ,2)A2(  I)  ,S2(  I  ),B2(I  )  ,  E2(I) 

gc  to  3C 

4C      CONTINUE 

PTS2=I-1 
C      222222222222222222222 

I=o 
WPITE( 6,5) 
50      CONTINUE 

1=1  +  1 

REAO(  23  ,*,SNC=6C  1A3  (I)  ,  83(  I  ) 

S3  (I  )=A2(I)  •"(  1  +62  (  I  )  ) 

E2(I) =ALCG(B2  (  I)+l  ) 
C       ACJUSTMENT  FCP  INSTFGN  AND  ELASTIC  STRAIN  ***** 

C=12. 3 

C=.l 

S  =  S3(  I) 

E=E3(  I  ) 

CALL    SLCFEIC  ,C  ,E,S,CHG) 

E2(I)=C)-G 

C  44*e* 

WRIT"  (ft ,?>A3l I),S2( I)« 83 (I ).E2(I  ) 

GC    H     5C 

6C  CCNTINUE 

PTS3=I-1 
/-  - -:-3 --33-3 -3 -j-m-a -3  -  - -3 --3 -s -3-33  33  3 

"l=0"     ' 

WRITE! 6,5) 
70  CCNTINUE 

1=1+1 

REAO(  27,*,ENC=eO  )A4  (I)  ,  34(  I  ) 
SMI  )=4MI  )  *  (  KeM  I  )  ) 

C  ADJUSTMENT* FOP    INSTPON    ANO    ELASTIC    STPAIN    ***** 

C=21.2 

C=.l 

S=SA< I ) 

E=EM  I) 

CALL    SLCFE1C  ,C  ,E,S,CHG) 

EM  I)=C)-C- 
C  »**=*»  104 


80 
C 

90 


ICO 
C 

200 


300 

C 

4C0 


500 
C 

c 


WRITE  (6  ,1)  A  4  (  I)  ,  SM  I  )  ,  Bt  (I  )  ,c'MII 

GG    TT     7C 

CCNTINUE 

PTS4=I-1 

444444.444444.44444  4  ^444444444 

1=0 
WRITE(  6,5) 
CCNTINUE 
1  =  1  +  1 
REAO( 26 ,*,£NC= 


ico/sfd  )  ,es(  i ) 
) ) 


S3  ( I  )  =A5(I)*  ( 1  -*E  5  (  I 

E51I)  =ALCG(B5  (  I )  -*  1  ) 

ADJUSTMENT    FCP     I N  S  T  ?  OM    AND    ELASTIC    STRAIN    **»** 

C=43.7 

C=.l 

S=S5(  I) 

E=F5(  I  ) 

CALL    SLCFEtC ,C  ,E,S,i 

E5(I  )=CI-G 

***** 

WRITE(6,2)A5(  I)  ,S5( 

GC    TO    90 

CCNTINUE 


CHG) 

I),B5(I  )  ,  E?(  I  ) 


PTS5=  I- 
c  cc  ec5  5  5 
"1=0 

WRITE!  6, 
CCNTINU 
1=1+1 
READ( 25 
S6(I )=A 
E6(I)=A 
ACJUSTN 
C=54.o 
C=.017 
S  =  S6< I) 
E  =  E6<  I  ) 
CALL    SL 
E6(I )=C 

WRITE  (6 
GG  T0  2 
CCNTINU 
P7S6=I- 
666666*6 
1  =  0 

WR!T<E(6 
CCNTINU 
1  =  1+1 
READ! 24 
S7(I)=4 
E7(I> =A 
ACJU37" 
C=10~. 
C=.17 
S=S7(  I) 
c=E7(  I) 
CALL    SL 
E7(I)=C 

WRITEC6 
CC  TO  4 
CCNTINU 
PTS7=I- 
77777777 

CALL    CCM 

CALL    SMC- 

CALL    POL 

CALL    9L0 

CALL   GPA 

CALL     PA 

CALL     ?l 

PAXLIN= 

CALL    LI 

CALL    LI 

CALL    LI 

CALL    LI 

CALL    LI 

CALL    LI 

CALL    LI 

CALL    l»Y 

CALL     FU 

CALL     Sh 

CALL    TH 

CALL    HE 

CALL   XNA 

CALL    YNA 

CALL    ARE 


1 

5  c 5 55  5 


c  c  e  c  c 


555?55555555 


,*,ENC=3CC )tt(l )  ,E6(  I  ) 
6  (I  1  +  (  1  -»f?6(  I  )  ) 
LCG(36 (  I  )  +  l  ) 

ENT    FCF     INSTFCN    AND    ELASTIC    STRAIN    ■»***;* 


CFE(C  ,C  iE.Si 


CHG) 

I), 36  (I  )  ,  E6(  I  ) 


,2) A6(  I)  ,S6( 

CC 

E 

1 

66666  6(46  666666666666  6  6  66666 


) 


,*,ENC=50CJ A 
7(1  )*  (  1-»E7(  I 
LCG(B7  (  I)+l ) 

EM    CCR     INST 


7(1 ) ,87( I  ) 
)  ) 

PCM     AND     rLASTIC     STRAIN    *~*-c* 


CFE(C  ,C,E,S  , 
FG 


,1)A7( 

CC 

E 

1 

777777 

CI.MENS 

FPS 

C7H 

Y3 

WLP  (.8 

CE(0.  ) 

GEdl. 

XALF  (  ' 

LINE  ST 

NES( 

NFS( 

NFS( 

NES( 

NFS( 

NFS( 

NES( 

LSGN(  ' 

TUFA 

CCHR  (  9 

KCRV1 . 

IGHT(  . 

fE( »TP 

f*E(  'TR 

A2D(8. 


CHG) 
)  , S7(  11,87(1)  ,E7(I  ) 


777777 
ICN    LE 


5  ) 

,€.f  J 

TNSTRU 
(Lc"GPA 

.4x10 ( 

.6X10 ( 
•4X1C( 
.6X10( 
.4X10< 
.6X1CI 
•4X10( 
STRAIN 


777777777777777777 
GPAK 


■  ) 

K  ,50 
EH.  5 
FH.  5 
EH.  5 
EH.  3 
EH.  5 
EH.  5 
EH.5 
P.AT 


3  ,20) 

)-4i  '  .LEGPAK  ,1) 
)-+■$'  , LEGPAK  ,2) 
)-3$ '  , LEGPAK  ,3) 
)-3S'  .LEGPAK ,4) 
)-2S»  .LCGPAK ,5) 
)-2$  '  .LEGPAK  ,6) 
1-1$'  ,LEGPAK  ,7) 


1/S!' ,16) 


C.  ,1,.C02 ,1  ) 

02) 
2  ) 

LE  STR 
LE  STR 
O6.0  ) 


ain$  •  ,ioo ) 

E33(  (  )MPA  (  )  )$• ,100) 
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CALL     HS4CT*I  (  '        J  '  .ICO,.  5  ,2  I 
CALL    HEAC!!;(  •  STRESS     VS    STRA IN  J  • , 100 » 1. 5 1 2 ) 
CALL    GRAF<0.  ,.1  .laCC.f 50.i 220.) 

CALL     THKFCM (  ,C3  > 

CALL  FFAfF 
CALL  CURV5(E1  ,51  ,FTS1 ,  +  1 ) 
CALL  CURV£(S2»S2,P7S2,+1) 
CALL  CUPVE(32  ,S2  ,FTS2,+-1  ) 
CALL  CUP\*E(E4f«4fF7S4,+  ll 
CALL  CURVF1E5  ,S5»FTSEF+1) 
-  CALL  CUP^(P=  ,«£  ,tlSe  ,+l  ) 
CALL    CURVc(I7  ,£7  ,F7S7,+1 ) 

CALL    RESET! 'ThKCPV • ) 

CALL    RESET( ' h&IGHT •  I 

CALL    LEGcNOUEGPAK  ,7, 5,5, 3.  ) 

CALL     ^LFEC(5.2,2o7,2o5 ,2o5,.0: ) 
C  WriWr»,J  WWW  k.*WWr.  WW«r,WWV>W 

CALL    ,MESSAG(  'TENFEFATUR3    =    $  •  ,  130  ,2  .  ,4.  5  ) 

CALL     INTN0I325,  '  i6UT' ,  ' ABUT'   ) 

CALL    M?SSAG('     (  =1-.  2  )C(  EXI-X  )  C  1  •  ,  100  ,  •  AeLT  »  ,  •  ABUT  •  > 

CALL     2LRECI l.f  ,4.4  ,2.7  ,  .  4,  .  0  2  ) 

C  Ww«wW  v>t>W  V**,.  »  '.  ,  *  VWw  ^ 

CALL    MES£AG(  •  AL-  10.  ^MG-~.  3  2  3NNS  »  ,  1  CO  ,  2.  5  ,5.5  ) 

CALL    3LPEC(  2.2  ,:.4,2.o,.4,.:2) 
C  WWWWlWWWWWWwWW W vwwwjwww 

CALL    MESSAG('ENC    CATA    POINTS    CO    mot     S •  ,100 , 1. 2 , . 1 ) 

CALL    *ESSAG(  '  INCICATE    FRACTURE  J ', 10 C ,' ABUT ',' ABUT'  ) 

CALL     3LPFC1  1.1, .C£  ,4.9  ,  .  24- ,  .  C2  ) 
CALL    GSTCH,  2 ) 
CALL     :NCFL(0) 
CALL    OONEFL 

1  FGRMATt 1X,4F12.5 > 

2  FCRMAK  1X,4F12.5  ) 

3  FCRMAT) 1X,4P12.;) 
C4  FCPMAT  (IX, 12  ) 

5  FCP"AT(1X,/,4X  ,«£«»G    STRESS*  ,2X,'TRM  =     ST  =  -  S3  •  ,2  X ,  •  ^-IG    STRAt  ?l  •  1 2X  i 

3  'TRUst     3T"AI  1'  ,/) 

END 

SUBROUTINE    SLCPE  (C  ,  C  ,F  ,  S  ,CHG  > 

PPAL    C,C,2, S  ,CFC,TC,TO 

TC-CM1.+0) 

TC  =  ALCG(C  +  l.  ) 

CHG=€-S*7D/TC 

IF(CHG.LE.O. )G0    TO    11 

GC    TO    21 
11  Ct-G=0. 

21  CONTINUE 

RETURN 

ENO 
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C  TRUE     ST??i:     V  S    T3LE     STRAIN     *T    T=15QC 

C  THIS     "CG'.i''     CCVPUTzS     T:?UC     STRESS     ANO    STP.AIN    FROM     INPUT     c  I  L  E  S     Cc 

C  ENGINEERING     2  TR  Z3  2    Xn    STRAIN,     AND    "h=N    PLOTS    TRUE 

C  STRESS     AGAINST    TRUE    STRAIN. 

EXTERNAL    SLOPE 

REAL     41(10)  ,A2(1CJ  ,  A3(  10  )  ,31  ( 10)  ,B2(10)  ,B3(10) 

PEAL    SI  (10)  ,  S2CC)  ,53(10  ).E1  (10  )  ,£2(10  )  ,  £3<  10) 

REAL    C,C,E,S  ,ChG  ,TC  ,TO , LEGPAK ( 500) 

INTEGER     I,PTS1,P1S2,PTS3 

1=0 
WRITE ( 6,5) 
10  CCNTINUE 

1=1*1 

REAO( 84,*, EN 0  =  20 )A1 (I)  ,81(1 ) 

SKI  )  =  AKI)*  (1  tell  I  )  ) 

Eld  )=ALCG(B1  m+T) 
C  ACJUSTfENT    FOR     INSTFON    ANO    ELASTIC    STRAIN    ***** 

C=10.2 

C=„083 

S=S1(  I) 

E==l(  I) 

CALL    SLCFE(C, C  ,E,S,CHG> 

El (I)=ChG 
C  ****= 

WRITE  (6,  DAK  I)  ,S1(  I),  31  (I  )  ,£!(  I) 

GC    TO    1C 
20  CCNTINUE 

FTS1M-1 
C  11111111111111111111111111 

1=0 
WPITE(6,5) 
30  CCNTINUE 

1  =  1*1 

READ<  33  ,*,ENC=40  )A2(I)  ,32(1) 

S2(I)=A2(I)*(  1  <e2( I ) ) 

E2(I) =ALCG(82  (  I  1+1  ) 
C  ADJUSTMENT    FCP     INSTFON     ANO     ELASTIC     STRAIN    ***-« 

C  =  25. 2 

C*«067 

S  =  S2(  I  ) 

E  =  E2(  I  ) 

CALL    SLCF=(C  ,C,E,S,CHG) 

E2( I )=ChG 

WRITE (6 ,2)A2 (  I) , 52 (  I), 3  2  (I  )  ,  C2(I ) 

GO    T0    3C 
40  CCNTINLE 

PTS2-I-1 
C  2222222222222222^222222222 

1=0 
WPI'=( 6,5) 
50  CCNTINUE 

1=1+1 

READ!  3  2,=*.  END  =  60  )A3  (I)  ,33(  I  ) 

S2(I ) =A3 III* (1 <62(  I  1  I 

E  2  (  I  )=ALCG(  R2  (l)-M  ) 
C  ACJUSTVENT    FCF     INSTFON     ANO     ELASTIC    STRAIN    ***** 

C=63.4 

C=.067 

S  =  S3(  I  ) 

E  =  E3(  I  ) 

CALL    SLCFC(C ,C  ,E,S,CHG) 

E3(I) =CHG 

Q  »*«* 

WRITE  (6, 2)  A3  (  I)  ,23  (  I),  33  (I  )  ,  F2(  I) 

GC    TO    5C 

60  CCNTINUE 

PTS3=I-1 

c  "wwwwwwwwwww' iiili  cImemsiqm'legpak   izhzs 

CALL    CCMF=S 
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CALL    3CLY2 

CALL    3LJWLP(i,  £5) 

CALL    3AGE  CI.  , £.5 ) 

CALL    VI  >ALF (  '  INSTPL  '  ) 

PAXLIN=LINEST ( L =GP A K ,5 00 ,20 I 

CALL    LINES (  '5.6X10  (EH.5  )-*$'  ,LEG?AK  ,1  ) 

CALL    LINE SI «  S.6X1CJ  EH.  5) -3$'  ,  L5GP4K  ,2) 

CALL    LINES (  •  5.6X12 ( EH. 5) -2$ '  ,  LEGPAK  ,2) 

CALL    f»YLEGN(  ■ STRAIN    PATES    l/SI',16) 

CALL     FUTLP.A 

CALL    ShCCHR(<;C.  ,1,.002,  1) 

CALL    THKCRV(.C2) 

CALL    HEIGHT (.2) 
CALL    XNA1»€<»TPUE    STP  t  IN  $  •  ,100  ) 
CALL   YNAMSl'TFLE    STR ESS  I  (  tMPA  (  )  )  $ ' , 1 00 ) 
CALL    AREA2CM  8.O6.0  I 

CALL    HEACINl'        J', ICO, .5, 21 
CALL    HEACIN( • STRESS     VS    STRA IN S • , 100 , 1.5  ,2 ) 
CALL    GRAFIO. , .1,1.,C.,50. ,200.) 

CALL     THKFFM(.C2> 

CALL     FRAfE 
CALL    CURVECEl  tSlrPTSl,+l  ) 
CALL    CURVEIE2  ,S2  ,FTS2  ,+  1  ) 
CALL    CURVE(E2  ,S2,FTS2,-t-ll 

CALL    RESET  (  'TFKCPV  I 

CALL    RESET! 'hEIGhT' ) 

CALL     LEGENOILEGPAK  ,2,5.4,3.  ) 

CALL    BLPEC( 5.1  ,2.7  ,2.5 , 1 .5 , .02 ) 

C  WkH^n.khhkkUH^M 

CALL    MESSAG<  'TEMPERATURE    =     J '  ,100,2 . ,2.5 ) 
CALL    INTMI!  35C,  ''PLT'  ,  '  AeuT'  ) 

CALL    M«ESSAG(  •     (  Eh.  2  )0(  ^  XHX  )  C  i  '  ,  100,  •  A8LT  •  ,  •  ABUT'  ) 
CALL    ELFEC(lo6,2.4,2o7,.4,.02  ) 
C  »„»»«»,,»►»„»,,,,*.,..„„ 

CALL    MESSAG<  '  AL-10.2iMG-C.  5  2  3NNS'  ,  ICO,  2.  5,5.5) 
CALL       B-LFEC  (2.2  ,5.4  ,2.6,  .4,..~2) 
C  WbWWWWwk»UWWWWW  VWKWkiUW 

CALL     1ESSAG('E^r    CATA    POINTS     CC    NOT     $  •  ,  100  ,  1.  2  ,  .  1 ) 
CALL    "ESSAG<  •  INCICATE    FR ACTUFE $'  ,100  ,' ABUT'  ,' ABUT •  ) 
CALL     aLFECt 1.1  ,.C6,4.3,.2^,.C2) 

C  U^Mxk^.l..^!. 

CALL  GSIC(?,2 ! 
CALL  ENOFLIQ ) 
CALL  DCNEFL 

1  FCP.MATf  1X.2FI2.  f  ,lX,2F12o7) 

2  FCRMAT(1X,A-F12.3  ) 

3  FCPMATl 1>,4F12.5 ) 
C4  FORMATdX,  12  ) 

5  FCRMAT(1X,/,4X  ,'ENG    STR.E S S'  , 2 X  ,  • TRUE     STRESS '  ,2X ,' EMG    STRAIN', 2X, 

3  "TRUE     STFAIN'  ,/) 

STOP 

END 
C  SLBP0L.77NE    FCF    CORRECTING     INSTRCN       ANC    ELASTIC    STRAIN    **«■<«* 

SUBROUTINE    3LCPE  (C  ,  C,2  ,  3  ,CHG  ) 

REAL   c  ,c  ,c-,s  ,CFG,TC  ,to 

TC=C*< 1.+0) 
TC»ALCG(C+1. ) 
CHG=5-S*TD/TC 

IF<CHG.L5*0, )CC    TC    11 

GC    TO    21 
11  ChG=0. 

21  CONTINUE 

RETURN 

END 
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C  TRUE     ST°~5S     \S    T'LE    STRAIN    A"    T=37 5C 

C  THIS     FFCGPAf     CCfPUlSS     TFUE     STRESS     AND     STRAIN    FR1M     INPUT     PILES 

C  ENGINEERING     STFF.SS    AND     ST^AIh,     ANO    THEN    PLCT3    TRUE 

C  STRESS     dGAINS"    TRUE    STRAIN. 

EXTERNAL    SLOPE 

REAL     Al  (10)  ,£2(1C)  ,43( 10  1,81  (  IC  > ,32 (1C  )  ,B3( 10  ) 
REAL    SI  (10 J  ,  S2(1C)  ,£3(  10)  ,cl  (10)  ,£2  (10  )  ,23(13  ) 
REAL    C,C,E,5  ,OG  ,TC  ,TD , LEGP AK ( 500) 
INTEGER     I.PTS1.FTS2  ,PTS3 
1=0 
WRITE! 6,5) 
10  CCNTINUE 

1  =  1+1 
REAOl  87,*,ENC  =  2C  )A1  (I)  ,B1(  I  ) 

sim=Ai(i)*(nei(i)  j 

Eld  )=ALCG<81  (  I>+1) 
C  ACJUSTMENT    FCP    INSTFQN     ANO    ELASTIC    STPAIN    ***** 

C  =  <?.34 
C=.033 
S=S1CI ) 
E=E1(  I) 

CALL    SLCPE(C,C,E,S,CHG) 
Ell  I) =CHG 

WRITE  (6,  DAI  (  I)  ,S1(  I),  81  (I  )  ,  El(  I) 

gc  n  ic 

20  CCNTINUE 

FTS1=I-1 
C  11111111111111111111111111 

1=0 
WRIT=( 6,5) 
30  CCNTINUE 

1=1  +  1 

REAO(  a6,*,ENC=AG  )A2(I)  ,32(1) 

S2(I)=AZ(I  )*(H«2(  I)) 

E2(I) =aLC3(e2  (  I  )  +1  ) 
C  ACJUSTMENT    FCF     INSTFON     AND    ELASTIC     STRAIN    ***** 

C  =  31. 9 

C  =  .l 

S=S2( I ) 

E=E2(I) 

CALL  SLCFEtC  ,C  ,:  ,S  ,CHG) 

EZ(  I)  =C« 
C       **==** 

WRITE (6  ,2>A2< I)  ,  £2(  I) ,B2(I  )  ,  EZ(I) 

GC  TT  3C 
40      CONTINLE 

PTS2=I-1 
C      22222222222222Z222Z2222222 

1=0 
WRITE! 6,5) 
50      CCNTINUE 

1  =  1  +  1 

REA0(85,*,ENC=60)A2(I),32(I) 

£2(1  )  *A2(U*  (1-182(1)1 

=2(1 ) =ALCG(32 (11+11 
C  ACJUSTVENT     FOF     UST1=CN     ANO    ELASTIC     STPAIN    ***** 

C=63.5 

C  =  .l 

£  =  S3(  I  ) 

E  =  E3(  I  ) 

CALL     SLCCE(C  ,C  ,E  ,S,CHG) 

E2(  I)  =C1-G 

WRIT= (6  ,3) A3 (  I)  ,£3(  I), 83  (I  )  , E2( I ) 

GC    ~3    5C 
60  CCNTINUE 

FTS3=I-1 
C  22323333"  "*3 1^  ^ '■'■"'■  11.1 33  33333322 

C  "www«5wiww*W ' SSSii'ciMEMSION" LcGP AK     %X1%%% 

CALL    CCMFFS 
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CALL    ?rL>3 
CALL    3L°\»LP  (.  £5  ) 
CALL    3P-ACE  10=  ) 
CALL    PAGE  (Ho  ,£.51 

CALL    VIXALFI  '  INSTRU  ') 

MAX  LI N=L  INE ST  (t=GPAC  ,5  00,20) 

CALL    LINES  (  •S.dJUCtnH.SJ-AS1  ,L2GPAK  ,1) 

CALL    LINES!  '  5.6/10  (  EH.  5  )-3$'  ,LEGPAK  ,2) 

CALL    LINFSJ  '  5.6X10< cH.5)-2$'  .LSGPAK  ,3) 

CALL     fYLEGM(  '  STRAIN    RATES     l/Sl',16) 

CALL     FUTLPA 

CALL     ShCCHR  (  <;C,  ,1,.C02,1  ) 

CALL    THKCRV(.C2h 

CALL    HEIGHT (.2) 
CALL    XNAf*E('TPLE    STRAINS  »  F100  1 
CALL    YNAMEf  TPLE    STP ESS (  (  IMP  A  (  )  )  S • , 100 > 
CALL    AREA2D(  9.0,6.01 

CALL    HEACINl  '        J*  , ICO, .5, 2) 
CALL    HEACIM( ' STRESS    VS    3TPA IN  !• , 100 ,  1.5 ,2 ) 
CALL    GRAF<0.  ,.1  ,1.  ,C.  ,50.  ,200.  ) 

CALL    THKFRM(.C2) 

CALL     FRAfE 
CALL    CURVECl  ,S1  ,FTS1,*1) 
CALL    CUPVE(E2  ,E2rFTS2,+l  ) 
CALL    CURVE<52  ,S2  ,FTS2»+1) 

CALL    RESET!  '  THKCPV  ) 

CALL    RESETt • FEIGFT'  ) 

CALL    LEGEND (LEGPAK  ,3,5,4,3.  ) 

CALL    8LPEC(5.1  , 2 . 7 ,2. 5 , 1.5 , . G2) 

C  HM^k.»>««»k.H|ih«H 

CALL    MESSAGI  '  7Ef PEPATURE    =     J  •  ,  100 , 2 .  ,2 . 5  ) 

CALL     INTNCM375.  '  *eU7»,  '  ABUT'  ) 

CALL    VESSAG('     ( =  F. 3 ) 0( EXhX ) C J ' ,100 ,  » A8LT '  ,  • ABUT • ) 

CALL     BLPECl 1.6  , 2 .4 , 2. 7 , . 4, . C2) 

CALL    MESSAGI  '  AL-  1C. 23MG-0. 5  2 ?fN$ •  ,100,2.5,5.5) 
CALL       8LFEC  I  2.3  ,f.4  ,2.  6,.4,.C2) 

C  {.k.^U^^.oUM.M 

CALL     M6SSAG<«ENU    CATA    POINTS    CO    NOT     $ '  ,100 , 1. 2 , . 1  ) 
CALL    MESSAGI  «  INC IC  ATE    CR ACTUP F $ '  ,  13 C  ,  * AB UT  •  ,  ' A8UT ■  ) 
CALL     BLFECt 1.1..C6  ,4.0 ,.24,.C2) 

C  ««KhMn«l.>>t.Hh.>t. 

CALL    GRIC(2, I  ) 
CALL    ENDFUO  I 
CALL    OCNEPL 

1  FCP^AT(1X,2F12.5  ,1X .2F12.7) 

2  FCRMATI 1X,4F1 2.5 ) 

3  FCRM4T1 1X,4F12.5 ) 
C4  FC!RMATUX,I3  I 

5  FGPMATdX  ,/  ,4X  ,  'ENG    S"TRE  SS'  ,  2  X  ,' TRUE     STRESS  •  ,2X  ,'  ENG    STRA[  N  ',  2X  , 

3'TDUE    STRAIN'  ,/  ) 

STOP 

ENO 
C  SL8R0UTINE    FCF     CCRPECTING     INSTRCN       ANC    ELASTIC    STRAIN    »** ** 

SUBROUTINE     SLCPE  (C  ,  C  ,E  ,S  ,CHG  ) 

REAL    C ,C,E,S  ,CFG,TC  ,TD 

TC=C*  (l.+O) 

TC  =  ALCG  (C-t-l.  ) 

CFG=E-S*TD/TC 

IF(CHC.LEoO. )CC    1C    II 

GC    TO    21 
11  CFG=0. 

21  CCNTINLE 

RETURN 

ENO 
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C  TRUE     STR"33     \S    TP.U"    "TR'IN    AT    T=AOCC 

C  THIS     PPCGRAiv     CCCPL1ES    "''SUE     !TRESG     4NC     STRAIN    PRCy     IMP!JT     FILES     CF 

C  ENGINEERING     STRESS    AND     STRAIN,     AND    THEN    PLOTS    T'UE 

C  STRESS     1GAIKS7     TPLE    STRAIN. 

EXTERNAL    SLCFE 

RFAL     Al(10),A2(lC),A3(10>rBl(13),B2(10),e3(10) 

REAL    SI  (  10)  ,SZ(1C1  ,53(10  >,E1  (10)  ,E2(10)  ,E3(  10) 

RcAL    CCfC.S.Cl-GtTCfTD,  LEGPAK  (500) 

INTEGER     I,?TS1,?TS2  ,PTS3 

1=0 
WRITE ( 6,5) 
10  CONTINUE 

1  =  1  +  1 

READ(  90,*,ENC  =  2C  )«1(I)  ,81(1) 

S1(T)=A1  (I)*  (  1  -teit  I  )  ) 

Eld  )  =ALCG(E1  (  I  )-»l  ) 
C  ACJUSTMENT    FCP     INSTFON    AND    ELASTIC    STRAIN    ***** 

C=9.51 

C  =  .l 

S=S1( I) 

E  =  E1(  I) 

CALL    SLCFE(C  ,C  ,Z  ,S,CHG) 

E1(I)=CHG 

C  4>»**A 

WRITE  (6  ,1)A1  (  I)  ,H(  I)  ,81  (I  )  ,E1(I> 

GC    T.I    1C 
20  CCNTINUE 

PTS1=I-1 
C  11111111111111111111111111 

1  =  0 
WPITEt  6,5) 
30  CCNTINUE 

1  =  1  +  1 

REA0(  89,-«,END=40  )A2  (I)  ,  B2(  I) 

S2(i  »=A2(i)^ ( i «ez(  I  )  ) 

E2(l )=ALC3(32 (  I)+l  ) 
C  ACJUSTMENT     FCP     INSTFCN     AND    ELASTIC     STRAIN    +**** 

C=?0. a 
C  =  .l 
S  =  S2(  I) 
E  =  E2(  I  ) 

CALL    5LCFE(C,C,c,S,ChG) 
E2(  I)=C)-G 

C  *:*:*x:i 

WRITE (6  ,2)A2  (  I  )  ,S2(  I  It  32 (I) , E2{ ! 1 

GC    T0     3C 
4C  CCNTINLE 

PTS2=I-1 
C  22222222222222122222222222 

1=0 
Wflir=(  6,5) 
50  CCNTINUE 

1  =  1  +  1 

REAO(  e8,*,ENC=6C)A?(I)  ,  B2(  I  ) 

S21I) =A2 (I )- ( 1 <e2( I ) ) 

E3  (  I  )=ALCG(32  (I)-*]) 
C  ACJUSTMENT    FCP     I*STFON     AND    ELASTIC     STRAIN    ***** 

C  =  60«  7 

C=  • 1 

S  =  S3(  I  ) 

E=F3( T  ) 

CALL     SLCF=(C  ,C  ,2,S,CHG) 

E3( I) =CFG 

WPITP(6  ,3) A3 ( I )  ,  £3(  11,83(1 )  ,  E2(I I 
GC    TT    5C 
60  CCNTINUE 

PTS3=I-1 

C  WhWhwSihviiiw"?«^i"CIMf:NSiaN     LSGPM<     ?S?3S? 

CALL    CC.MFFS 
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CALL    PCLY2 

CALL    3LCV>L?(.  E5) 

CALL    ? AGE  (11. , e.; ) 

CALL    ^IXALF  (  '  IN'STPU'  ) 

MA  XL  I  N= LINE  ST  (LEGPAK  ,5  00  ,20  ) 

CALL     LU*55<  '  5. 6  A  10  (EH.  5  ) -4  S  •  ,  IEGPAK  ,  1) 

CALL    LINES  I  ' 5.6A1C (FH.  5) -3$', LEG? AK, 2) 

CALL    LINES ( ' 5.6X1CIEH. 5) -2$'  ,L5GPAK  ,3) 

CALL    fYLEGN (  •  STR4IN    RATES    l/Sl',16) 

CALL    FUTLPA 

CALL    SHCCHR(<;C.,1,.C02,  1  ) 

CALL    THKC=V (oC2  ) 

CALL    HEIGHT!. 2) 
CALL    XNaMEI'TRUE    STR  A  IN  $  •  ,  100  ) 
CALL    YNAME('TPLE    STR ESS (  (  )MPA  (  )  )  S • , 1 00  ) 
CALL    ARF42D(8.C,6.0) 

CALL    HEACIN  (  '        J».1C0».5  ,2  ) 
CALL    HEACIN(  ' STRESS     \S    STRA I N $ •  ,  100 ,  1. 5  ,2 ) 
CALL    GRAF(0. , .1  ,1., C.,50.  ,200.  ) 

CALL     THKCRMI.C2) 

CALL     FPAI"C 
CALL   CURVEIE1 rSl»FTSl»+l) 
CALL    CURVE(E2  ,S2,F7S2,*1) 
CALL    CURVE(E3  ,S2,FTS2,*1 ) 

CALL    RESET(  '  THKCFV  ) 

CALL    RESET( 'HEIGHT* ) 

CALL    LEGEND! LEGPAK ,3,5. 4,3. I 

CALL    eLPECtS.l  ,2.7,2.5 ,1.5, .02) 
C  WWmwW  V>Wt»  tWWVtfc  V  Vktkbk* 

CALL    MESSAGl  'TEMPERATURE    =     $  '  ,  100, 2.  ,2. 5 ) 

CALL     INTN0(4CC  ,  '  t eLT* ,  ' ABUT*  ) 

CALL     MESSAG('     ( =H.3)C( EXHXIC1'  ,100,  'ABUT'  ,'A8UT'  ) 

CALL    eLFECd.e  ,2o4,2.7,.A,.02  ) 

C  VkMMllbl«.>«k,Mkf.,,. 

CALL  MESSAG(  '  A L-  10. 23MG-0. 52 3MNS • , 1  CO , 2 . f  ,5.5 ) 
CALL   eLFcC  (2.2  ,5.4,2.6,  .4,.G2» 

C       m»»»n,vn.»t,^n,,k»»» 

CALL    ^ESSAGI'ENC    CATA    POINTS    CO    NOT     t '  ,  100  , 1.  2  ,.  1  > 
CALL    MESSAG(  'INCICiTS    FR iCTUFE i>  ,100 ,» ABUT ',' ABUT '  ) 
CALL     3LPECI 1.  1  ,.C6  ,4„  9  ,  .  24,  .  C2  ) 

C  WWUViWWnktWwMUM  WVi 

CALL  GRIC12.2 ) 
CALL  2N0FL(0 ) 
CALL  OCNEFL 

1  FORMiTt  1X.2F12.5  ,1X ,2F12.7) 

2  FORMAT!  1X,4F12.5  ) 

3  FCR'^Tt  1X.-+C12.5  ) 
C4  FOPMATdX.IS  ) 

5  FCRM<\T(1X,/,*X  ,  ,CN;G    STRESS1  ,2X, 'TRUE     STRE  SS«  ,2X  ,  '  ENG    STRAIN', 2X 

3 'TRUE     STRAIN'  ,/ I 

STOP 

ENO 
C  SL3R1UTINE    FCP    CCFRECTING    INSTPHN       ANC    ELASTIC    STRAIN    '«*"* 

SUBROUTINE    SLCP5  (C  ,  C  ,c  ,  S  ,CHG  > 

REAL    C  ,C  ,5,S  ,CHG,TC,TO 

TOC*<l.+Q] 

TC=ALHG(C+1. ) 

CHG=E-S*TD/TC 

IFICHG.LE.Oo )GC    TC     11 

GC    TO    21 
11  CHG=0. 

21  CCNTINUE 

FFTU.RN 

ENO 
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c  t=u"    vT";3    \r   tplc  ;tr;i'    at  t=4?5C 

C  THIS     sPCC^Af     C:VPL":3     TT'Jr     STRESS     INC    STRAIN     CP-01     INPUT     =  IL" 

C  ENGINE  5  PING     STPSSS     VI  0     STRAIN,    AND    t>c.n     PL2TS    TRU- 

C  STRESS     AGAINST    TRU  E    ST  P.  A  I  No 

EXTERNAL    SLCFE 

REAL     Al  (10)  t A2(1C)  ,  A3  ( 10  ),31  (10 )  ,82  (  10  )  ,B3(  10  ) 

REAL    Sl(  10)  , £2(1C)  ,S3( 10) ,£1  (10)  ,52 (10 ) ,£3(13 ) 

REAL    C,C,£,S  ,CI-C,TC,TD,LEGPAK(5Q0> 

INTEGER     I,PTS1,FTS2  ,?TS3 

1  =  0 
WRIT=( 6,5) 
1Q  CONTINUE 

I«I+1 

READ(93f*,EN0»Z0  1A1  (U  ,BKI ) 

SI  ( I )  =A  1  (I)*  (  1-tEK  I  )  ) 

E1(I)=AICG(B1 (11+11 
C  ADJUSTMENT    PCF     INSTFCN    ANO    ELASTIC    STRAIN    ***** 

C  =  4,22 

C  =  .05 

S=S1(  I) 

E»EU  I) 

CALL    3LCFE(C,C,E,S,ChG) 

E1(I)=CHG 
C  ***** 

WRITE  (6,1)A1  (  I)  ,S1(  IUBl  (I  1  ,  EMI) 

GC    TO    1C 
20  CCNTINUE 

PTS1=I-1 

1=0 
WRITEl 6,51 
30  CCNTINUE 

1=1*1 

PEA0(92,*,ENC=40  )A2 (I)  ,82(  I ) 

S2(I )=A2(I)*( 1 +5Z( I ) ) 

E2(  I)=ALCG(B2 (  I) +1 ) 
C        ADJUSTMENT  FCF  INSTFCN  AND  3LASTIC  STRAIN  ***** 

c=n.  7 

C=ol 

S  =  S2I I  ) 

E  =  <=2(  I) 

CALL    SLCFEtC ,C,E,S,CHG> 

E2(!)=ChG 

WRITE  (6,2)A2(  I)  ,£2  (I),  8  2  (I  )  ,  :2(  I  ) 

GC    'I    3C 
40  CCNTINLE 

PTS2=  1-1 

1*0 
W  P I TE I  6 , 5  J 
50  CCNTINUE 

1=1  +  1 

READl 91  r»,END=60  )A3 (I)  ,B3( I ) 

£3(1  )  =  A3  (I  »*U  <e2(  I  )  ) 

E3(I) =ALCG( 6?  (  I  1+1  ) 
C  ADJUSTMENT    FCP     INSTFCN    AND    ELASTIC    STRAIN    ***** 

C  =  36.a 

C=ol 

S=S3(  I  ) 

E  =  E3(  I) 

CALL    SLCFC(C  ,C  ,2  ,S ,CHG) 

E3(I)=C1-C- 

Q  **:**« 

WRITS (6, 3) A3 (  I)  ,S3( I) ,83(11  ,  E2(I ) 
GC    Tn     5C 
6C  CCNTINUE 

PTS3=I-1 
C  3223323223333:2323333333 

C  WWWWWWWWWKW     Zi%%l    CIMENSION     L2GPAK     33?i3? 

CALL    COMPPS 
CALL    PCLY3 
CALL    3LCWLP(. £  5) 
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1 

2 
3 

C4 
5 


11 
21 


CAUL  3 
CALL  R 
CilL 
PAXLI 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


?<  A  C  F  (  D 

AGE  (11 
"I >ALF 
N=LINE 
LINES< 
LIN6S( 
LIN  PS  I 
VYLSGN 
FLTLkA 
St-CCHR 
THKCRV 
HEIGHT 
XNAPE( ' 


=  ) 

.  ,E.5  ) 

(  '  INSTPL  '  ) 
ST(LEGPAK,500,20) 

•  5.6X  1C  (  FHo  5  )-4S  •  .LEGPAK  ,  1  ! 

•  5.6X10 (FH.5 )-?i'  , LEGPAK, 2) 
' 5.6X  1C( EH. 5  1-2S '  .  LEGPAK  ,2) 
(  '  STR4IN    RATES    1/SS' ,16  > 


CALL    YNAMEt 

CALL    AREA2C( 

CALL    HEACIN 

CALL    HEACINI 

CALL    GRAF(0. 

CALL    THKFRM 

CALL    FRANE 

CALL    CUPVE(E 

CALL    CURVEtE 

CALL    CURVE(E 

CALL    RESET( 

CALL    RE£ET( 

CALL    LEGEND 

CALL    eLFECt 

CALL  MESSAG 
CALL  INTNOt 
CALL  MESSAG 
CALL    eLFECI 

kWtaWW  WUW^WW 

CALL  MESSAG 
CALL  eLFEC 
WWkWrittotehWW 
CALL  "ESSAG 
CALL  MESSAG 
CALL     9LPCC( 

CALL    GPIC (2, 
CALL    EN0PL10 
CALL    OCNEFL 
FORMAT ( IX, 2 
FORuAT( IX, 4 
FCRMAT( IX, 4 
FORMAT! IX, 
FORMAT (iX,/, 
3'TRUE    STRAIN 
STOP 
ENO 

SUBROUTINE 
SUBROUTINE 
PEAL    CrCfEf 
TC=C* ( l.+O) 
TC=ALQG(C+1 
CHG*€-S*TD/ 
IFtCHGoLEoO 
GC    TO    21 
ChG-=0. 
CCNTINUE 
FFTURN 
ENO 


(  <;C.,1,.C02,1  ) 

(  .C2 

(.2) 

TRUE 

TPLE 

9.C, 

(  • 

'  SIR 

,.1, 

(.C2 


) 


STRAINS'  ,100  > 

STRESS)  (  )MPA  (  )  )$• ,100 ) 
6.0) 
*»,  ICO,  .5,2  ) 

ESS     \S    STRAINS' ,100,1.5,2) 

l.,C.,50.  ,200.  ) 

) 


SI 
S2 

r  1 
HK 

EI 
EG 
1  . 

V  V 

TE 


,FTS 

,FTS 
,FTS 
CFV 
Gl-T' 
PAK  , 
t.  c  7  , 
,  thh 

•"PEP 

•  *eu 

EF.2 
A. 4  , 

»  ,  <■■- 
-1C. 
,5.4 

«  w»» 
C    CA 

c:ca 


i  >+• 
2,* 

2,* 

) 
) 

2,5 
2.5 

.« 

AT!J 

T», 

)0( 

2.7 

•  « 

2*1 

,2. 

»* 
TA 
TE 
,5. 


.A, 3.  ) 
,1.5,  .C2) 

RE   =    I  ',100, 2., A. 5) 

1 AeUT'  ) 

EXHXICi '  ,100,  '  A8UT'  ,'ABUT'  ) 

, .4, .02  ) 

G-C. 5  2  3£N$« ,100,2.5,5.5) 
6 , .4, «C2 ) 

POINTS    CO    NOT    $•  ,100,1. 2,2. ) 
FRACTUFcS1  ,10  0  ,  '  ABUT  '  ,  '  A8UT  ■  ) 
,  • 24, • C2 ) 


,7) 


F12.5,1X,2F12, 

F12.5  ) 

p  1 2  •  2  1 

I  2  ) 

4X,"ING    STRESS' , 2X,  'TRUE 

'  ,/) 


STRESS'  ,2X,  'ENG    STRAIN', 2X 


-CF    CCRPSCTINC    INSTRON 
SLCPE  (CtC,c,S  ,CHG  ) 
S.CFCTC.iO 

.  ) 

TC 

,  )CC    TC  11 


4NC  ELASTIC  STRAIN  ***  ** 
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